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ous êtes patient ? Tant mieux ! Ce numéro 
hors série de Tilt va mettre vos nerfs à rude 
épreuve ! Avec, pour la première fois , 80 
logiciels exclusifs de jeux en kit, prêts à 
fonctionner une fois digérés par votre ordi¬ 
nateur. Au rendez-vous : duels spaciaux, 
courses automobiles, vols en rase-mottes, 
missions impossibles, tirs aux pigeons, 
guerres modernes, labyrinthes etc. Un 
vaste programme ! Mais avant de savourer votre ré¬ 
compense, il faudra introduire méticuleusement cha¬ 
que programme dans votre micro (attention, la moin¬ 
dre faute vous obligera... à tout recommencer !). Et 
puisqu'il n'existe pas encore un Basic standard, nous 
publions dans les premières pages de ce guide (juste 
avant les programmes) les tableaux des équivalences 
Basic qui vous permettront d'introduire également les 
jeux qui n'ont pas été écrits dans le langage de votre 
ordinateur. Enfin, si vous n'avez pas encore choisi l'ap¬ 
pareil de vos rêves, nous avons soumis à notre banc 
d'essai impitoyable les dix neufs ordinateurs les plus 
répandus. À vous de jouer.Tournez cette page et trans¬ 
formez vite nos colonnes de lettres et de chiffres en rêve 
électronique. 


Bruno Barbier 










Succès assuré pour les après-midi entre copains avec 2 séries de jeux vidéo, distribuées par RCV: 


DOUBLE-ENDER!" une gamme de jeux vidéo révolutionnaires, qui permet avec une cartouche 
à double entrée, de jouer avec deux jeux passionnants, totalement différents et indépendants : 

- une ascension glaciale avec Spike's Peak ® et des frissons de terreur avec Ghost Manor 

- en plein dans le mille avec Artillery Duel ® et une lutte sans merci avec Super-Kung-Fu, 

- un duel à mort entre Sir Lancelot* et le Dragon et l'enlèvement spectaculaire de Lady Marianne 
par Robin des Bois (Robin Hood)? 



SEGA ® des jeux vidéo, qui après avoir été joués des millions de fois dans les bars et les salles de 
jeux américains, arrivent en France et vont triompher chez vous : 

- Congo Bongo™: un jeu d'aventure à mourir de rire ! Déjà un très grand hit aux Etats-Unis. 

- Buck Rogers™: un jeu de stratégie et de combat qui évoque le personnage bien connu des bandes 
dessinées américaines. 

- Star Trek™: un jeu de stratégie spatiale avec une boussole de tir à placer sur le joystick pour mieux 
contrôler le combat. 


Les jeux vidéo Double-Ertder™ sont compatibles avec Atari® 2600 VCS™ CBSColem Vision™ et bientôt avec d’autres standards. 

Les jeux vidéo Sega * sont compatibles avec les standards : Atari ® 2600 VCS™ 400 ™ 800™ 1200XL™ et pour Congo Bongo™: Mattel Intelhvison. 
Bientôt dans la plupart des magasins de jeux vidéo et les vidéo-clubs. 
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Alice est un micro-ordinateur conduit 
en France par Matra-Hachette sous 
licence américaine. Ses capacités le 
destinent à l'initiation des débutants 
désireux de découvrir l'informatique 
et le langage basic. Mais Alice n'est 
pas irréprochable, les néophytes l'ap¬ 
prendront parfois à leurs dépens... 

Vous reconnaîtrez ce micro-ordinateur à 
sa couleur rouge et à sa petite taille. Il 
est compact et possède un clavier fonc¬ 
tionnel et complet. La structure des tou¬ 
ches, loin d'être désagréable, n'autorise 
pas une frappe rapide. Alice est cjoté 
d'une prise péritélévision pour la connec¬ 
tion au téléviseur. L'image ainsi produite, 
est claire et les couleurs se distinguent 
bien sur l'écran. L'alimentation secteur 
est extérieure. Actuellement, aucune 
extension signée Matra-Hachette n'est 
disponible pour Alice. Heureusement, 
toutes les extensions destinées à son 
homologue, I eMC 10 de Tandy, lui sont 
entièrement compatibles. 

Son basic micosoft résident est muni 
d'une mémoire vive de 4 Ko. Il offrira 
aux débutants de multiples possibilités 
de programmation, mais conviendra dif¬ 
ficilement à un programmeur initié. Neuf 
couleurs (jaune, rouge, ivoire, bleu 
cobalt, bleu pâle, mauve, orange, vert 
et noir) et seize caractères semi- 
graphiques pré-établis sont directement 
accessibles au clavier. Ils permettront la 
réalisation de graphismes simples et con¬ 
tribueront à la création de dessins ou à 
la conception de logiciels ludiques. 

La définition graphique est de 64x32 
zones pour la version de base. Bientôt, 
Alice accédera à la haute résolution 
grâce à l'extension 16 Ko, fabriquée par 
Matra-Hachette. Il est possible et même 
conseillé d'utiliser graphisme et textes à 
la fois, pour obtenir des réalisations 
beaucoup plus attrayantes. Malheureu¬ 
sement, l'absence d'un éditeur de tex¬ 
tes ne permet pas une correction aisée 


Nous avons aimé: 

— ses dimensions ; 

— son manuel, très clair ; 

— la qualité de l'image ; 

— son clavier facile à utiliser. 
Nous avons regretté : 

— son rapport qualité-prix ; 

— l'absence d'éditeur de 
programmes ; 

— l'alimentation extérieure ; 




des erreurs pouvant apparaître au cours 
de l'élaboration d'un programme. L'ins¬ 
truction « Sound » émettra des sons 
modulables sur une gamme assez res¬ 
treinte ; ceux-ci sont transmis par le 
haut-parleur TV. Bien sûr, les sons ainsi 
produits, bien que de bonne qualité, ne 
peuvent être comparés à ceux d'un 
synthétiseur musical. 

La lecture et la sauvegarde sur cassette 
ne pose pas un réel problème. Mais 
attention, le cordon magnétophone n'est 
pas fourni avec l'ordinateur. Après pres¬ 
que un an de commercialisation, Matra- 
Vlachette ne propose que deux casset¬ 
tes de jeux. La première est constituée 
de logiciels en basic d'un niveau moyen. 
La seconde, présentant des jeux en 
assembleur, est bien meilleure. Mais 
vous pourrez utiliser les logiciels créés 
par Tandy. Ils sont tous entièrement 
compatibles avec l'ordinateur français 
Alice. 


Puissance 4 


RADIOSCOPIE 

Origine: France 
Connection TV : 

* péritel 
RAM : 4 Ko 
Son : oui 
Couleur : 8 
Joystick : non 
Entrée cartouche : non 
Crayon optique : non 
Disquette : non 
Ludothèque: * 

Prix : 1 150 F environ 
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MC 10 

UNE SOLIDE REPUTATION 


Tandy, ce géant de la micro- 
informatique et de l’électronique de 
loisir, s'est lancé à l'assaut d'un nou¬ 
veau marché, celui des petits micros 
avec couleurs, sons et caractères 
semi-graphiques à moindre prix. Sa 

vocation ? Faire découvrir l'informati¬ 
que à un large public. 

Tandy avait su apporter un « plus » avec 
la sortie du TRS 80 modèle 1, il y a cinq 
ans. Le MC 10, lui, ne révolutionnera pas 
la micro-informatique, mais la solide 
réputation de ce constructeur donnera 
le coup de pouce nécessaire à sa 
commercialisation. 

La connection du MC 10, au téléviseur 
s'établit par l'intermédiaire de la prise 
péritélévision. Le MC 10 fonctionne en 
système Sécam et il n'est donc plus 
nécessaire de recourir à un téléviseur 
multistandard Pal/Sécam. L'image est 
d'excellente qualité. Ce nouveau micro¬ 
ordinateur, d'une taille beaucoup moins 
importante que ses prédécesseurs, est 
une machine robuste, dotée d'un clavier 
classique, à base de gris et noir, comme 
le reste de l'ordinateur. Si sa petite taille 
n'a pas permis d'intégrer l'alimentation 
secteur, le MC 10 dispose de toutes les 
extensions du micro-ordinateur Alice. 
Le MC 10 pourtant destiné à l'initiation, 
possède un langage basic résident assez 
restreint, et l'absence d'un éditeur de 
textes ne facilitera pas, paradoxalement, 
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la tâche des débutants. Le langage rési¬ 
dent, le basic microsoft, est doté de tous 
les ordres classiques. Ces derniers, rien 
d'exceptionnel, sont presque tous acces¬ 
sibles directement au clavier par l'inter¬ 
médiaire de la touche « Control ». Ah, si 
seulement Tandy avait pensé à une fonc¬ 
tion d'édition ! La création de logiciels 
aurait été grandement facilitée. Malheu¬ 
reusement, à la moindre erreur, vous 
serez dans l'obligation de retaper la ligne 
en entier. L'initiation à l'informatique se 
trouve facilitée par un manuel en fran¬ 
çais fort bien réalisé. 

La mémoire vive de 4 kilo-octets devient 
rapidement insuffisante pour créer des 
jeux. En mode graphique, vous disposez 
d'un écran divisé par 64 x 32 zones, soit 
2048 blocs, en neuf couleurs. Les seize 
caractères semi-graphiques faciliteront la 
réalisation de dessins et d’animations. 


Nous avons aimé: 

— l'effort fait pour l'initiation au 
basic ; 

— ses nombreuses extensions ; 

— sa finition ; 

— son utilisation simple et fiable. 

Nous avons regretté : 

— l'absence d'un joystick ; 

— la faible capacité de base ; 

— le basic peu souple pour 
débuter ; 

— sa ludothèque encore inexis¬ 
tante après un an de commer¬ 
cialisation. 


RADIOSCOPIE 

Origine: Etats Unis 

Connection TV : 

* péritel 
RAM : 4 Ko 
Son : oui 

Couleur : 8 
Joystick : non 
Entrée cartouche : non 
Crayon optique : non 
Disquette: non 
Ludothèque: ★ 

Prix : 1 150 F environ 


Des sons peuvent être produits en défi¬ 
nissant le ton et la durée de la note trans¬ 
mise au haut-parleur du téléviseur. Une 
excellente qualité sonore pour un micro, 
surtout dans cette gamme de prix. 

Un an après sa sortie, la ludothèque du 
MC 10 ne s'est pas beaucoup étoffée ; 
pas plus de cinq programmes de jeux ne 
sont aujourd'hui disponibles. Ces logi¬ 
ciels réalisés aux Etats-Unis ne sont pas 
traduits. Mais vous pourrez utiliser les 
programmes en basic et assembleur con¬ 
çus par Matra-Hachette, et fonctionnant 
sur le micro-ordinateur Alice. En effet, 
les deux ordinateurs, quasiment identi¬ 
ques, donnent lieu à des échanges stan¬ 
dard d'extensions et de logiciels. Le seul 
espoir de voir apparaître des logiciels 
pour le MC 10 et Alice, réside dans la 
prochaine commercialisation d'ouvrages 
de programmes aux Editions Edimicro, 
Sybex, P.S.I.... 



Réflexes 

























ATARI 400-800 

LA PASSION DU JEU 


Les deux frères Atari, le 400 et le 800, 
sont sensiblement différents, même 
s'ils possèdent tous les deux la même 

passion du jeu. Le 800 est un vérita¬ 

ble ordinateur, doté d'une mémoire 
centrale de 16 K extensible à 48 K et 
d'un clavier de type machine à écrire 

avec minuscules, auto-répétition et 

une touche d'inversion vidéo. 

Le boîtier, fourni avec une prise péritel, 
est muni de deux emplacements, desti¬ 
nés au branchement des cartouches de 
mémoire ROM, et de quatre connecteurs 
pour les manettes de jeux. La qualité du 
graphisme est satisfaisante, mais les 
couleurs sont trop lumineuses. La haute 
définition est possible et atteint 
320x192 points, mais n'est opération¬ 
nelle qu'avec une seule couleur. D'autre 
part, la qualité des graphiques s'affaiblit 
en fonction du nombre de couleurs uti¬ 
lisé. En revanche, l 'Atari 800 possède 
d'honnêtes possibilités sonores. Le son 
est programmable sur quatre voies indé¬ 
pendantes en volume et en timbre. Parmi 
les périphériques, nombreux mais chers, 
on notera le lecteur de disquettes, qui 
n'existe pas sur le 400. 

La console de jeux Atari 400 est aussi un 
ordinateur d'initiation. Son clavier à 
membrane (sans relief) est peu pratique. 
Il offre une mémoire vive de 16 K, dis¬ 
pose de 8 couleurs avec prise péritel 
Secam, et permet d'afficher 24 lignes de 
40 colonnes. Il possède également un 
synthétiseur constitué de quatre géné¬ 
rateurs de sons sur quatre octaves. La 
programmation en basic de la tonalité, 
la durée et la distribution des sons reste 
très simple. Il faut cependant utiliser 
l'assembleur pour modifier l'enveloppe. 

Nous avons aimé : 

— leur ludothèque variée ; 

— leur connection cartouche. 

Nous avons regretté : 

— leur rapport qualité-prix ; 

— leurs joysticks, peu souples. 

Les deux Atari400 et 800 souffrent d'un 
défaut commun, leur prix, qui demeure 
élevé, et sont logiquement détrônés par 
la nouvelle gamme de modèle « XL ». Ils 
possèdent également, au-delà de leurs 
différences, le même atout : c'est-à-dire 
qu'ils profitent d'une bibliothèque de 
logiciels impressionnante. Tous les 
grands jeux d'arcades sont disponibles 
(oserais-je citer Pac-Man, le vrai...), mais 
10 


RADIOSCOPIE 
Atari 400 

Origine: Etats-Unis 

Connection TV : péritel 
Mémoire vive : 16 K 
Couleur : 8 (Sécam) 

Son : oui 
Joystick : oui 
Entrée cartouche : oui 
Crayon optique : oui 
Disquette : non 
Ludothèque : * ★ ★ * * 

Prix : 3 000 F environ 

aussi des simulations et des wargames. 
De quoi passer des heures aux comman¬ 
des de sa machine, et attraper de fort 
belles crampes. Les joysticks et manet¬ 
tes manquent, en effet, de maniabilité et 
de souplesse. 

RADIOSCOPIE 
Atari 800 

Origine: Etats-Unis 

Connection TV : péritel 
Mémoire vive : 16 K 
Couleur: 16 (Sécam) 

Son : oui 
Joystick : oui 
Crayon optique : oui 
Disquette : non 
Ludothèque : ★ * ★ * * 

Prix : 6 500 F environ 


































ATARI 600 XL - 800 XL 

LE MONDE EN COULEUR 


Le changement de la gamme Atari 
saute aux yeux. Les 400/800 étaient 
plutôt austères et volumineux. Le 

600 XL et le 800 XL sont au contraire 
habillés d'une robe très design, ce qui 
les rend très agréables à l'œil, 
J 'autant que leur taille a diminuée par 
■ apport à leurs prédécesseurs. Le look 
des périphériques a, lui aussi évolué, 
3t ceux-ci peuvent désormais s'empi- 

ar plus facilement. Plus d'excuse si 
votre installation ressemble à un 
champ de bataille ! 

Les anciens 400 et 800 avaient de réel¬ 
les possibilités, particulièrement en gra- 
hique. Les nouveaux venus conservent 
organisation interne de leurs aînés avec 
quelques nouveautés cependant. La tou¬ 
che « Help », sert à revenir sur les diffé¬ 
rents « menus » dans des logiciels 
complexes, et permet de conserver en 
mémoire le manuel d'utilisation du DOS. 
Côté périphériques, le magnétophone 
WW est doté désormais de deux prises 
entrée-sortie au lieu d'une seule sur le 
4W. Le lecteur de disquettes a, quant à 
lui, un nouveau système de fermeture. 
Le 600 XL, tout comme le 800 XL, se 
branche sur le téléviseur soit par la prise 
antenne UHF, soit par la prise péritel. 
Dans ce dernier cas, on profite des cir¬ 
cuits mis au point par Atari, en accédant 
aux 256 couleurs (!). Les branchements 
sont simples et fiables, et permettent de 
connecter de nombreuses extensions. 


Nous avons aimé : 

— leur ludothèque ; 

— le graphisme et les couleurs ; 

— la facilité d'initiation au basic. 
Nous avons regretté : 

— leur prix, assez élevé ; 

— l'absence de réelle nouveauté 
technique. 


Remarquons, tout particulièrement, le 
lecteur de cassettes qui offre la possibi¬ 
lité d'enregistrer sur une piste sonore des 
commentaires — comme par exemple la 
ègle d'un jeu — ou de la musique qui 
se déclenche au moment du chargement 
du programme. 

La qualité graphique est extraordinaire 
avec la haute résolution 320 x 192 points 
et surtout les 256 couleurs, grâce aux¬ 
quelles Atari surpasse tous ses concur¬ 
rents. Côté son, la nouvelle gamme 
hérite des synthétiseurs connus sur les 



Chasseur 


RADIOSCOPIE 
Atari 600 XL 
Origine: Etats-Unis 
Connection TV : péritel 
Mémoire vive: 16 K 
Couleur: 256 
Son : oui 
Joystick : oui 
Crayon optique : oui 
Disquette: non 
Ludothèque : ***** 
Prix: 2 500 F environ (Sécam) 


RADIOSCOPIE 
Atari 800 XL 
Origine: Etats-Unis 
Connection TV : péritel 
Mémoire vive: 16 K 
Couleur : 256 
Son : oui 
Joystick : oui 
Crayon optique : oui 
Disquette : oui 
Ludothèque : ***** 

Prix : 3 500 F environ (Secam) 

modèles 400/800. Et ceux qui voudront 
découvrir les délices de la programma¬ 
tion auront à leur disposition un manuel 
de basic. 

Côté jeux, c'est le vertige. Le cap des 
1 000 logiciels est en train d'être 
dépassé ! Bien sûr, tous les modèles 
Atari sont compatibles entre eux. Désor¬ 
mais, grâce à Nathan et Hachette, on 
peut s'instruire en s'amusant, avec des 
jeux éducatifs, qui abordent le calcul, 
l'orthographe et l'éveil. Et à l'heure de 
la récréation, on pourra expérimenter les 
nouveaux jeux d'action comme Pôle 
Position ou Moon Patrol. Avec leur 
forme séduisante, les nouveaux 600 XL 
et 800 XL sont à la fois d'intéressants 
ordinateurs d'initiation et des consoles 
de jeux aux larges possibilités. La docu¬ 
mentation technique, en français, 
gagnerait, cependant, à s'étoffer. 
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Le BBC est disponible sur le marché 
français depuis moins d'un an. Il a été 

conçu et développé par la firme 
Acorn Computers Limited de Cam¬ 
bridge, sous l'égide de la BBC, d'où 
son nom. 

Le boîtier du BBC est de grande dimen¬ 
sion mais d'esthétique quelconque. 
L'installation de l'appareil est très facile, 
d'autant que le BBC dispose d'une ali¬ 
mentation intégrée. L'image obtenue est 
nette et les couleurs saturées. Vous pou¬ 
vez relier le BBC à un amplificateur exté¬ 
rieur, à la grande joie de vos voisins bien 
sûr. Le BBC dispose d'une vaste gamme 
d'extensions : extension mémoire de 
64 K, lecteurs de cassettes et de disquet¬ 
tes et même un synthétiseur de paroles, 
en français ! Les manettes de jeu se 
branchent simultanément sur une prise 
située à l'arrière. Elles doivent obligatoi¬ 
rement être tenues dans la main ; leur 
usage est agréable et n'entraïne pas de 
fatigue excessive. Toutefois, les petites 
mains seront certainement désavanta¬ 
gées. 

Nous avons aimé : 

— sa vitesse de traitement ; 

— ses possibilités sonores 
et graphiques ; 

— le langage assembleur 
intégré ; 

— les nombreuses interfaces 
incluses dans le boîtier. 

Nous avons regretté : 

— son rapport qualité-prix ; 

— sa taille importante ; 

— ses manettes de jeu peu 
maniables ; 

— sa ludothèque assez pauvre. 


Le Basic intégré est de type microsoft, 
mais l'appareil dispose aussi d'un assem¬ 
bleur incorporé. Ce basic est d'ailleurs le 
plus rapide de ceux que nous connais¬ 
sons, dans cette gamme de prix, bien 
sûr. Le BBC possède une gamme de huit 
couleurs et d'une définition graphique 
étonnante : 640 x 256 pixels. Mais, à 
cette définition là, seules deux couleurs 
sont accessibles. Sept modes différents 
permettent de choisir un compromis 
entre définition et nombre de couleurs 
disponibles. Même avec huit couleurs 
à l'écran, la définition atteint encore 
160 x 256 pixels. 

Différentes fonctions gèrent cette haute 
résolution : « Move » positionne le cur- 
12 


seur graphique : « Draw » trace une ligne 
entre la dernière position du-dit curseur 
et un point spécifié : « Plot » est très 
complet et permet de tracer un point ou 
une droite en coordonnées absolues ou 
relatives ou un triangle colorié. « Vdu » 
autorise de nombreuses possibilités, en 
particulier la définition de caractères et 
le mélange de texte et de graphique. Il 
manque malgré tout une instruction, 
permettant le dessin direct de cercles. 
Deux instructions sont dévolues au son : 
« Sound » contrôle trois canaux de notes 
et un canal de bruit. Pour chaque canal, 
on peut spécifier, synchronisation, 
amplitude, fréquence et durée. « Enve¬ 
loppe » assure le contrôle de l'enveloppe 
(l'enveloppe est ce qui permet de carac¬ 
tériser le timbre de chaque instrument). 
Ces deux fonctions, bien que de pro¬ 
grammation ardue, autorisent des effets 
sonores de grande qualité. 

La gamme de logiciels commence à être 
suffisamment étoffée. Elle comprend des 
jeux de réflexion [Echecs, Othello) de 
simulation (de vol), d'aventures graphi¬ 
ques et conversationnels et toute une 
gamme de jeux d'arcades. Le BBC appa¬ 
raît finalement comme un micro¬ 
ordinateur aux possibilités intéressantes, 
tant graphiques que sonores. 



RADIOSCOPIE 

Origine: Grande-Bretagne 

Connection TV : 

* péritel ou pal antenne UHF 
RAM : 32 Ko 
Son: oui 
Couleur : 8 
Joystick : oui (2) 

Entrée cartouche : oui 
Crayon optique : oui 
Disquette : oui 
Ludothèque : ★ ★ ★ 

Prix : 7 500 F environ 
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ELECTRON 

PROGRAMMER, C'EST FACILE 



— sa facilité d'utilisation. 


L'Electron Acorn, nouveau venu dans 
le monde de la micro-informatique, 
est issu d'un modèle beaucoup plus 
puissant, le BBC modèle B, dont il 

reprend toutes les caractéristiques 

essentielles du langage basic. En 

France, le premier modèle de la 
gamme ne connut pas un vif succès. 

C'est dommage, car il s'agit d'un 

micro-ordinateur assez exceptionnel 

compte tenu de son prix. Cependant, 

dans le marché aujourd'hui très 
encombré de l'ordinateur, l 'Electron 

conserve toutes ses chances de sor¬ 
tir du rang et de bénéficier des suffra¬ 
ges du public. 

A première vue, l'appareil n'a rien 
d'exceptionnel et pourtant son boîtier 
crème, recèle d'immenses ressources. 
Un petit quadrillage façon cahier d'éco¬ 
lier, situé au-dessus du clavier, annonce 
déjà sa vocation d'initiation à l'informa¬ 
tique. Les branchements sont très sim¬ 
ples à réaliser, à condition de posséder 
un adaptateur secteur. L'image produite 
avec la prise péritel est excellente. 
Sachez seulement que, prise péritel et 
cordon magnéto, ne seront pas livrés 
avec la machine et devront être factu- 


Nous avons regretté : 

— la compatibilité incertaine des 
logiciejs du BBC; 

— l'absence de cordons magné¬ 
tophone et prise péritel ; 

— la pauvreté des possibilités 
sonores ; 

— les manettes de jeux disponi¬ 
bles qu'avec une extension. 


rés en supplément. Quant au charge¬ 
ment des cassettes, il est extrêmement 
fiable. De nombreuses extensions res¬ 
tent à venir qui transformeront votre 
Electron en un second BBC, une chance 
non ? 

Son basic résident, comme sa mémoire 
vive de 32 Ko, sont identiques au micro¬ 
ordinateur BBC. Programmer l'Electron 
est un véritable plaisir, car son basic, très 
rapide, est surtout extrêmement complet 
et varié. Bien sûr, toutes les fonctions 
classiques y figurent, auxquelles s'ajou¬ 
tent de multiples ordres. Par exemple, 
« Old » permet de récupérer un pro¬ 
gramme après un « New » accidentel. 
Côté graphisme, l'utilisateur a le choix 
entre sept modes différents. Malheureu¬ 
sement, chacun d'eux est plus ou moins 
gourmand en mémoire vive, entre 8 et 
24 Ko. La résolution graphique maximale 


est de 640 points, mais vous ne dispo¬ 
sez que de deux couleurs et vous per¬ 
drez 20 Ko RAM. Des petits caractères 
graphiques peuvent être redéfinis sur 
une matrice 8x8 points. Ils seront par¬ 
ticulièrement utiles pour la réalisation de 
jeux en basic. L 'Electron possède un 
petit haut-parleur intégré commandé par 
un seul canal. Les effets produits ne sont 
pas exceptionnels, mais animeront vos 
logiciels. Le manuel d'utilisation est très 
clair, et plus de la moitié de celui-ci vous 
enseignera comment utiliser l'assem¬ 
bleur. Il s'agit du premier manuel inclus 
avec la machine où l'assembleur n'est 
pas passé sous licence. 

Du fait de sa jeunesse, l 'Electron ne pro¬ 
pose pas encore de logiciels ludiques. 
Mais rassurez-vous, ils ne vont pas tar¬ 
der à apparaître sur le marché. Pour les 
joueurs impatients, certains logiciels du 
BBC modèle B sont compatibles avec 
l'Electron . De là, à connaître le nombre 
exact de logiciels fonctionnant sur ces 
deux micro-ordinateurs... Ici, une seule 
solution pour en avoir le cœur net, 
essayez l’échange standard, succès non 
garanti... 

RADIOSCOPIE 

Origine : Grande-Bretagne 

Connection TV : 

* péritel 

* UHF antenne pal 
RAM : 32 Ko 

Son : oui 

Couleur : 16 
Joystick : oui 
Entrée cartouche : non 
Crayon optique : oui 
Disquette : oui 
Ludothèque : ★ ★ * 

Prix : 3 200 F environ 


un logiciel gratuit 
pour tout achat 

ÎSÆ'SS. 

PROMOTION 

SPECIALE 

|6 MICRO-EXPO 84 

itique 

■ THOMSON T07 

■ SINCLAIR 

■ ORIC-ATMOS 

■ ATARI 600 ET 800 XL 

■ COMMODORE 

VIDE0-SH0P 

■ wwiviiTi w w wnb 

■ SPECTRA VIDEO 

| 50. rue de Richelieu - 75001 PARIS - Tél: 296.93.95 du lundi au samedi, de 9 h 30 à 19 h.. 


Je désire recevoir gratuitement votre 
documentation et vos prix sur (précisez 
ici le matériel) : 


NOM _ 

PRENOM _ 
ADRESSE 
VILLE _ 


CODE POSTAL 


13 









































lAwasSf 


mas- 


Nous vous offrons une gamme 
de logiciels Jeux, Educatifs et 
Professionnels pour Commo¬ 
dore® et Atari® et autres ordi¬ 
nateurs individuels. 

Jouer n'est pas notre seule 
vocation. Nous adaptons nos 
recherches et productions aux 
besoins des utilisateurs tant 
jeunes qu’adultes. 

Commodore* et Atari® sont des marques déposées respec¬ 
tivement par Commodore Inc. et Warner Communications. 

JB Industries S.A. 

Importateur et distributeur exclusif 
pour la France 

20 bis Chemin des Grands Plans 
06802 Cagnes-sur-Mer 
Tel. (93) 20.17.17 - Télex 461387 F 
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JB INDUSTRIES FRANCE 

Importateur et distributeur exclusif 
pour la France : 

20 bis, Chemin des Grands-Plans 
06802 Cagnes-sur-Mer 
I : (93) 20.17.17 - Télex: 461387 F 


POUR LES SALLES DE JEUX 
ET MAINTENANT CHEZ VOUS 
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Le Kid 



Helicruise 


4Ü 


Starfall 



Shadow 


Pas de doute, le Commodore 64 ne 

renie pas son lien de parenté avec le 

VIC 20. Même aspect extérieur, 

même présentation sobre avec ses 

trois bruns dégradés jusqu'au sépia. 

Mais qu'on ne s'y trompe pas, le CBM 

64 n'est pas simplement un VIC 20 

« gonflé ». C' est dans sa conception, 

un nouvel ordinateur._ 

L’interface Secam incorporée à l'appa¬ 
reil évite de nombreux branchements. 
On trouve par ailleurs une interface Cgv 
qui permet d'obtenir une excellente 
image Secam sur un Commodore Pal. 
On regrettera en revanche l'alimentation 
par un bloc secteur extérieur. Un bon 
point pour le clavier, à 66 touches com¬ 
pactes. Il comprend une série de carac¬ 
tères semi-graphiques et quatre touches 
programmables de fonctions, surtout 
utiles pour les jeux. Attention ! Toute 
interruption du CBM est déconseillée 
sous peine de perdre les programmes. 
Ne pas hésiter à recourir à des sauvegar¬ 
des fréquentes. 


Nous avons aimé : 

— son joystick ; 

— sa ludothèque 

— son entrée cartouche ; 

Nous avons regretté : 

— la génération de son et de gra¬ 
phisme par « Poke » 

— le manque de fonctions 
prédéfinies ; 


Côté graphisme, le Commodore 64 offre 
des qualités exceptionnelles, compara¬ 
bles à celles de certains jeux d'arcades. 
Le sprite est sa botte secrète. Les spri- 
tes — dessins définis par des cases noi¬ 
res ou blanches sur une grille de 21 par 
24 cases, chaque case noire correspon¬ 
dant à un point — permettent de géné¬ 
rer des graphiques. Ils sont au nombre 
de 164 et vous pourrez en utiliser 8 à la 
fois, en les promenant sur l'écran en les 



faisant apparaître ou disparaître, se tra¬ 
verser les uns les autres. Les créateurs 
de jeux s'en donneront à cœur joie, à 
condition d'être courageux : la généra¬ 
tion du graphique demande en effet, une 
quantité impressionnante de « Poke ». 
Mais quel résultat, avec une haute réso¬ 
lution de 320 x 200 points ! 

Il en va de même avec la création sonore, 
peu avare de « Peek ». Mais le résultat 
est parfait. On peut régler modulation, 
note, volume et enveloppe, grâce à un 
véritable synthétiseur à trois voix de huit 
octaves, et connectable sur une chaîne 
hi-fi. 

Les extensions sont dignes d'un maté¬ 
riel semi-professionnel : lecteur de cas¬ 
settes, de disquettes, imprimante, 
crayon optique, et pour le jeu, boutons 
rotatifs et poignées. Celles-ci sont un 
peu rigides, mais utilisables par les gau¬ 
chers. Les jeux disponibles sont nom¬ 
breux et variés, certains dotés d'un gra¬ 
phisme à faire pâlir d'envie plus d'un 
concurrent ! On en trouvera des surpre¬ 
nants, comme World Rise, Motor 
Mania, Monopoly, Jump Man, Came/s 
ou Benjy. Grâce à un émulateur, les pro¬ 
grammes destinés au VIC 20 sont éga¬ 
lement utilisables sur le CBM 64, ce qui 
élargit considérablement sa ludothèque. 
Le Commodore 64 est un « gros » micro¬ 
ordinateur, dont la qualité du graphisme 
surprendra. En revanche, sa complexité 
d'utilisation risque de rebuter le program¬ 
meur débutant. 


RADIOSCOPIE 

Origine: Etats-Unis 

Connection TV : 

* péritel 

Mémoire vive : 64 K 
Couleur: 16 
Son : oui 
Joystick : 2 
Entrée cartouche : oui 
Crayon optique: oui 
Disquette: oui 
Ludothèque : ★ ★ ★ ★ * 

Prix : 3800 F environ (Sécam) 
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EXCLUSIF 



SignWe reconnaissance de tous les branchés des jeux 
électroniques. Voici le TILT-SHIRT. 

Soigneusement confectionné en pur coton interlock, 
c'est un produit "Made in France", il n'est pas en vente 
dans le commerce, alors commandez-le vite. Prix : 40 F. 



BON DE COMMANDE 
TILT-SHIRT 

A remplir et renvoyer accompagné de votre règlement à 
TILT 2 rue des Italiens 75009 Paris 


Taille 

Quantité 

Prix 

Total 

36/38 







40/42 




Participation aux frais d'envoi 

+ 8.50 F 


TOTAL GENERAL 


Nom_ 

Prénom- 

N°_Rue 



Code postal i_i—i—i—i—i 

Ville.- 

Ci-joint mon règlement par 
□ Chèque bancaire □ C.C.P à l'ordre de TILT 



NOAO 

























DAI 


LE CREATEUR D'IMAGES 


DAI. Un drôle de nom pour un ordi¬ 
nateur. Belge de surcroît. Le DAI est 
un « haut de gamme » tout à fait 

sérieux, concurrent de VApple II, mais 
qui est assez peu répandu en France. 

Sa couleur blanche et sa finesse, son 

design original font un peu oublier 

son encombrement assez important. 

Le clavier Qwerty est homogène et per¬ 
met une frappe idéale. Pas de surprise 
côté raccordement, le DAI fonctionne 
aussi bien sur téléviseur Pal que Secam, 
par l'intermédiaire d'une prise péritel. 
L'image est parfaite. Son microproces¬ 
seur 8080 accède à un basic semi- 
compilé dont la vitesse écrase celle de 
tous ses concurrents. Le graphisme et 
le son constituent ses autres points forts. 
Le DAI est un créateur d'images. Le logi¬ 
ciel de création graphique CLIO réjouira 
les programmeurs de jeux. Grâce à ce 
programme, vous pourrez visualiser vos 
plus folles idées. Huit modes graphi- 



peut se brancher sur une chaîne hi-fi. 
Côté extension, tout est là. Lecteur de 


Saul en longueur 



MUSIC CONSTRUCTION SET 

Créez votre propre 
musique 


HAIID HA7MACK. 

MICHAEL A8BCT» MA7THEW ALEXANDER 


HARD HAT MACK 

Un scénario où se mêle 
gags, humour, et galèri 


Logiciels de jeux sur disquettes 

En vente chez votre revendeur Micro Informatique 


AXIS ASSASSIN 

Mettez vos réflexes 
à l’épreuve 


APPLE. ATARIou COMMODORE 


(II, Ile, 11+) 


• •• 


(600/800XL) 


(C64) 




















Intergalactique 



Le pigeon agile 



Miniwar 


cassettes digitales à haute vitesse 
(Memocom), lecteur de cassettes tradi¬ 
tionnel, de disquette. Deux sortes de 
manettes sont disponibles : des joysticks 
classiques et des joysticks à trois dimen¬ 
sions, utilisés avec le programme CLIO. 
Leur maniement demande une. cer¬ 
taine expérience. 

Le DAI dispose de plus de 700 logiciels. 
Cette ludothèque est en constante pro¬ 
gression, à la fois quantitative et quali¬ 
tative. Il pourrait bien nous réserver 
d'autres surprises agréables. 


RADIOSCOPIE 

Origine: Belgique 
Connection TV : péritel 
Mémoire vive : 48 K 
Couleur: 16 

Son : oui 

Joystick : oui, 2 modèles 

Entrée cartouche : non 
Crayon optique : oui 
Disquette : oui 
Ludothèque : * * * 

Prix : 6 700 F environ 
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DU NOUVEAU POUR VOTRE MICRO 
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Z.l. du Coudray 

14, av. Albert-Einstein 

931S5 LE BLANC-MESNIL 




Micro Expo 

du 22 au 26 Mai-Stand P36 




























HECTOR HRX 

EN FRANÇAIS DANS LE TEXTE 



Voici le successeur du Victor 

Lambda HR, un micro-ordinateur très 

performant, à condition de te pro¬ 

grammer en forth. En effet, le HRX 
est le seul modèle possédant un lan¬ 

gage résident, le forth, en mémoire 
morte. Bien sûr, cet ordinateur est 

100 % français, il ne sera donc pas 

nécessaire d'avoir recours à un dic- 

tionnaire anglais pour utiliser la 

machine. Par exemple, la tradition¬ 

nelle touche « Reset » est indiquée 
par « Remise à zéro ». Il offre une 

ludothèque complète qui devrait 

encore se développer. 


RADIOSCOPIE 

Origine: France 
Connection TV : péritel 
RAM : basic 18 Ko 
Son : oui 

Couleur : 8 
Joystick : 2 
Entrée cartouche : oui 
Crayon optique : non 
Disquette: oui 
Ludothèque : ★ ★ * ★ 
Prix : 4 950 F environ 


L 'Hector HRX possède l'un des meilleurs 
claviers que nous ayons pu rencontrer à 
ce jour. Grâce à l'interface Sécam inté¬ 
grée et la prise péritélévision, l'image 
produite est irréprochable. Pour faire 
fonctionner le HRX, seules, deux prises 
doivent être connectées : alimentation et 
péritel. Pour les impatients, Flector pro¬ 
posera des logiciels en « Rom-pack » 
(c'est-à-dire en cartouche). Deux manet¬ 
tes de jeux un peu particulières peuvent 
se connecter au HRX. Elles sont sensi¬ 
bles et réagissent à chaque impulsion, 
mais s'utilisent à la fois comme manet¬ 
tes et manche à balai. Chacune d'elles 
dispose des trois fonctions : manche, tir 
20 


et potentiomètre. L'ordinateur comporte 
aussi un lecteur de cassettes intégré, qui 
assure une grande fiabilité de charge¬ 
ment. 

L 'Hector HRX possède un langage rési¬ 
dent superpuissant, le forth, dix fois plus 
rapide que le basic. Dans le commerce, 
le basic III est disponible sur cassette ou 
sur carte mémoire. Mais la mémoire vive 
utilisable n'est que de 12 kilo-octets sur 
48 Ko de départ. Le basic possède des 
logiciels intégrés pour la réalisation de 
graphismes (lignes, cercles) et il est pos¬ 
sible de peindre des surfaces détermi¬ 
nées. Vous disposez de quinze couleurs 
et d'une réalisation 243x231 points. 
Mais vous pourrez également afficher 
quatre couleurs simultanément, sans 
problème d'interférence, ou redéfinir des 
caractères graphiques en haute résolu¬ 
tion sur une matrice 5x9 ou 
8x8 points, de les animer grâce à l'ins¬ 
truction « Scrolling » qui permet de les 
déplacer dans toutes les directions. Pour 
créer un caractère, il faut utiliser l'ins¬ 
truction « Poke ». 

L 'Hector HRX possède également un 
générateur de sons. Mais, là, il faut 
encore utiliser l'instruction « Poke » si 
vous voulez obtenir des bruits divers 
(chute d'eau, rayon laser, explosion). 
Pour les amateurs de jeux, le HRX pos¬ 
sède la commande « Joy » pour diriger 
divers graphismes avec une manette de 
jeux. 

Les anciens logiciels Victor Lambda 
fonctionnent sur les nouveaux micro¬ 
ordinateurs Hector, rien d'étonnant car 
entre ces deux marques, seul le nom dif¬ 
fère. Il s'agit malheureusement, d'une 
ludothèque en basse résolution avec des 
graphismes assez grossiers. Mais ces 
logiciels ont tous un atout incontesté, ils 
sont entièrement français. 


Nous avons aimé : 

— son puissant langage forth ; 

— ses manettes de jeux ; 

— la fiabilité du lecteur de 
cassettes ; 

— les possibilités graphiques. 

Nous avons regretté : 

— son rapport qualité-prix ; 

— la mémoire vive en basic III 
trop faible ; 

— l'utilisation fréquente de 
l'instruction « Poke » ; 

— son manuel presque inexistant 
en basic III. 
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La chenille 














































Choisissez une carrière d’avenir. 



métiers 

informatiques 


l’un d’eux peut être demain le vôtre... 

... même si aujourd’hui vous n’avez pas de diplôme. 


âhoisissez rifc! 

Vous pouvez commencer vos 
études à tout moment, sans 
interrompre vos activités 
professionnelles actuelles. 

Comment apprendre rapidement et tacite¬ 
ment un - métier du XXI” siècle? Devenir 
informaticien en 1983, c'est choisir une car¬ 
rière d’avenir, avec l'assurance de trouver 
immédiatement de nombreux débouchés, et 
des perspectives d'autant plus intéressan¬ 
tes que la place de l'ordinateur ne cesse de 
s'accroître dans tous les domaines : écono¬ 
mique, social, administratif, etc. 

Quel que soit votre niveau de formation (et 
môme si vous n'avez pas de diplôme), Edu- 
catel se charge de vous apprendre en quel¬ 
ques mois par les moyens les plus moder¬ 
nes, et avec un enseignement personnalisé 
à votre cas, le métier informatique qui vous 
convient le mieux, 

A la fin de votre formation Educatel, vous 
recevrez un certificat que savent apprécier 
les employeurs et nous appuierons votre 
candidature. 

Demandez, sans aucun engagement de 
votre part, notre documentation gratuite en 
nous renvoyant le bon ci-dessous ou en nous 
téléphonant au (1) 208.50.02 . 



Département Informatique 
et Micro Informatique 
(1) 208.50.02 


ANALYSTE 

A un niveau intermédiaire entre l'utilisateur et l’application informati¬ 
que. vous concevez l’application et formalisez la solution qui sera 
ensuite confiée aux programmeurs (niveau d’accès : BAC + 2). 

ANALYSTE PROGRAMMEUR 

Vous êtes la charnière entre la conception du projet et sa réalisation, 
vous adaptez chaque programme en fonction de la demande de l'utili¬ 
sateur (niveau d’accès: BAC). 


On embauche 

des milliers d’informaticiens 

Les chiffres de l'ANPE le prouvent : actuellement plus de la 
moitié des postes proposés par les employeurs à des infor¬ 
maticiens (programmeur, opérateur sur ordinateur, etc.) ne 
sont pas pourvus, faute de candidats en nombre suffisant. 
Et les spécialistes du Plan lancent un cri d'alarme : la France 
a besoin très rapidement de 100.000 nouveaux informati¬ 
ciens. Découvrez vite comment devenir réellement l'un de 
ces - techniciens de l'avenir»! 

Educatel 

G.I.E. Unieco Formation 
Groupement d’écoles spécialisées. 

Etablissement privé d'enseignement 
par correspondance soumis au contrôle 
pédagogique de l'Etat. 



PROGRAMMEUR D’APPLICATION 

Vous travaillez en collaboration avec l’analyste, 
testez et mettez au point les programmes (niveau 
d'accès : 2* - 1 ™). 

PROGRAMMEUR 
SUR MICRO-ORDINATEUR 

Vous maîtrisez la programmation sur micro-ordina¬ 
teur et le langage BASIC (niveau d'accès : 3" ou 
B.E.P.C.). 

OPERATEUR SUR ORDINATEUR 

Vous assurerez principalement les différentes 
manipulations nécessaires au fonctionnement de 
l'ordinateur (niveau d'accès : 3’ - B.E.P.C.). 

PUPITREUR 

Vous avez un rôle de dialogue avec la machine. Le 
pupitreur effectue la mise en route, la conduite et 
la surveillance des installations de traitement infor¬ 
matique (niveau d'accès : 3* ou 4’). 

OPERATRICE DE SAISIE 
Votre travail consiste à saisir des informations en 
langage compréhensible pour l'ordinateur. (Acces¬ 
sible à tous). 

PRATIQUE DES MICRO-ORDINATEURS 

Pour acquérir très rapidement les connaissances 
nécessaires pour mettre en œuvre et utiliser un 
micro-ordinateur. (Accessible à tous). 

INITIATION A L'INFORMATIQUE 

L'informatique fait maintenant partie de notre uni¬ 
vers quotidien. En quelques mois apprenez l'essen¬ 
tiel sur cette technique. (Accessible â tous). 

B.T.S. SERVICES INFORMATIQUES 

Préparation à l'examen officiel 
(Niveau d'accès: Baccalauréat) 

Si vous êtes salarié, voire élude peut être prise en 
charge par voire employeur (loi du 16.7.1971 surla 
formation continue). 

Dossier sur demande I POsîT'""—- 

pour les entreprises / °E Cou! a, L/rp 


I BON pour une documentation détaillée 




sur 10 métiers de l’informatique 

OUI, je désire recevoir gratuitement (et sans aucun engagement) une documentation 
détaillée sur la formation EDUCATEL d'enseignement personnalisé des 10 métiers informatiques. 

J'y trouverai pour chaque métier préparé le plan de formation complet, son niveau d'accès, le programme des 
travaux pratiques, sa durée et son prix. g 

Si je le désire, une orientation et des conseils personnels me seront fournis gratuitement. o 

Je peux également téléphoner à EDUCATEL au (1)208.50.02 (demander Madame LAMY). h 

NOM 


Prénom 


Ville 


Adresse _ 

Code postal 

Téléphone (facultatif)_ 

Travaillez-vous? OUI □ NON □ Niveau d'études 


Précisez le métier qui vous intéresse : 


EDUCATEL G.I.E. Unieco Formation 
3000 X - 76025 ROUEN CEDEX 

Pour Canada. Suisse, Belgique 49. rue des Augustins - *000 Liège 
Pour TOM-DOM et Afrique : documentation spéciale par avion. 


























LASER 200 

UNE GENERATION PROLIFIQUE 


Le Laser 200, apparu sur le marché au 

mois de novembre 1983 annonce une 

nouvelle génération d'ordinateurs, à 

la fois tournés vers le jeu et l'initiation 

informatique. En effet, il sera bientôt 

suivi par le Laser 300 et le Laser 500, 

tous deux d'une mémoire de 18 Ko et 

enfin du Laser 3000, un micro aux 

capacités semi-professionnelles 

annoncé compatible avec l'Apple II et 

l'IBM PC et pour moins de 6 000 F. 

Le Laser 200 comporte une interface 
Secam intégrée, et la connection au télé¬ 
viseur peut être réalisée par la prise 
antenne UHF. Il est livré avec un câble 
vidéo pour l'utilisation d'un moniteur, 
l'image ainsi produite est de bien meil¬ 
leure qualité. Son boîtier est très sobre, 
blanc avec des touches ocre-jaune. De 
nombreuses extensions peuvent être 
connectées : module mémoire vive 16 et 
64 Ko, manettes de jeux, imprimante 
quatre couleurs, interface Centronics et 
crayon lumineux. Le Laser 200 se pro¬ 
gramme en basic microsoft, le langage 
informatique le plus répandu au monde. 


Nous avons aimé : 

— l'extension joystick program¬ 
mable ; 

— le clavier facile à utiliser ; 

— la gestion des couleurs ; 

— son rapport qualité-prix. 

Nous avons regretté : 

— la « moyenne » résolution 
d'écran ; 

— la faible mémoire vive ; 

— l'absence d'initiation au lan¬ 
gage machine dans le 
manuel ; 

— le changement des logiciels 
sur cassette, parfois difficile. 
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Les 4 Ko de base deviennent rapidement 
insuffisants pour la réalisation de logiciels 
ludiques, l'extension 26 Ko est alors 
nécessaire. Son basic est assez classi¬ 
que, mais l'éditeur de textes, complet et 
maniable, facilitera le travail des néophi- 
tes. Le Laser 200 ne possède pas une 
véritable haute résolution, mais une 
«moyenne» résolution de 128 x 64 
points et huit couleurs — moins une 
lorsqu'on passe du mode 0 (texte) au 
mode 1 (graphique). — En restant en 
mode texte, vous pourrez utiliser l'un des 
seize caractères semi-graphiques, acces¬ 
sibles directement au clavier par l'inter¬ 
médiaire de la touche « Shift ». Avec un 
peu d'astuce, les réalisations ludiques 
donnent des résultats étonnants, ceci 
grâce à la grande rapidité du basic uti¬ 
lisé par le Laser 200. Un générateur de 
sons, assez sommaire, permet de créer 
des mélodies. La qualité des notes émi¬ 
ses par vibration de lamelles métalliques, 
ne peut se comparer avec d'autres appa¬ 
reils. 

Pour la réalisation d'effets acoustiques 
ou musicaux, vous disposerez de trente- 
deux notes et d'une variation de temps 
allant d'un tiers de seconde à trois 
secondes. Les manettes de jeux peuvent 
être commandées dans un logiciel de 
votre composition, en langage basic ou 
assembleur. 

La ludothèque du Laser 200 ne compor¬ 
tait au départ que quatre titres. Ces pre¬ 
miers logiciels, d'une forte dominante 
verte à l'écran, occasionnaient une 
rapide fatigue visuelle. Des défauts de 
jeunesse sans doute. Aujourd'hui, nous 
comptons plus de cinquante logiciels de 
jeux. 79 F. 


RADIOSCOPIE 

Origine : Hong-Kong 

Connection TV : 

* moniteur 

* UHF antenne Sécam 

* péritel • 

RAM : 4 Ko 
Son: oui 
Couleur : 9 

Joystick : oui, 2, avec extension 

Entrée cartouche : non 
Crayon optique: oui 
Disquette : à venir 
Ludothèque : ★ ★ ★ ★ 

Prix : 1 490 F environ 



Tchouka 



Squash 



Le phoque 



Car Fighl 
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L’âne rouge 





































LYNX 

TOUTES GRIFFES DEHORS 



Le Lynx, c'est un félin aux yeux per¬ 
çants. C’est aussi un micro-ordinateur 
familial, bien décidé à ne pas se lais¬ 
ser faire dans la jungle du marché de 
l'informatique. Toutes griffes dehors, 
il vient d'une ville de tradition : Cam- 


bridge, Angleterre. 


déplaçant des graphiques en superposi¬ 
tion. On peut donc déplacer un mobile 
sans effacer la couleur de fond. 

Si la vue du Lynx est exceptionnelle, sa 
voix, elle, l'est beaucoup moins. Il en est 
de même pour l'ordinateur du même 
nom. Ses possibilités sonores ne sont 
pas très étendues. Autre faiblesse : on 
ne trouve ni emplacement pour cartou¬ 
ches, ni prises pour poignées de jeu. On 


Le Lynx est fabriqué par une société 
indépendante, Computers Limited. De 
son lieu de naissance, il garde la sobriété 
de son aspect extérieur. De couleur 
grise, le boîtier est fonctionnel. Sa taille 
est comparable à celle d'un VIC 20. 
Détail pratique : ne pas oublier de coller 
les patins de protection sous l'alimenta¬ 
tion sous risque d'échauffement. Tous 
les raccords sont fournis, et les interfa¬ 
ces communication et imprimantes sont 
incorporées au système initial. L'ensem¬ 
ble des connections s'effectue sur la face 
arrière. Le cordon péritélévision — un 
peu court — permet d'obtenir une image 
parfaitement stable, aux couleurs satu¬ 
rées. 

Le clavier Qwerty, de type machine à 
écrire, possède 57 touches répétitives. 
La frappe est agréable. L'écran possède 
une bonne définition de 248 X 256 points 
en version de base 48 K, et 248 x 512 en 
version 128 K. 

Les mots clés, en nombre limité, peuvent 
être entrés en appuyant simultanément 
sur « Esc » et une lettre. Le Lynx possède 
un excellent basic, qui reprend la struc¬ 
ture du langage pascal. Les ordres qui 
gèrent la haute définition sont assez 
complets : « Move » déplace le curseur, 
« Draw » trace une droite, et « Dot » con¬ 
crétise le point. « Plot » reprend ces 
fonctions et permet l'utilisation de coor¬ 
données relatives. On peut également 
mélanger texte et graphique. « Print A » 
déplace une image de point en point. 
Le Lynx dispose de huit couleurs. Cha¬ 
que point peut être colorié indépendam¬ 
ment des autres, et la fonction « Pro- 
tect » protège une couleur, tout en 


doit donc avoir recours à une interface 
externe (700 F). 

Nous avons aimé : 

— son clavier; 

— ses possibilités graphiques ; 

— son basic puissant ; 

— son rapport qualité-prix. 

Nous avons regretté : 

— ses capacités sonores peu 
étendues ; 

— l'absence de prise pour 
poignées de jeu. 

Le manuel quant à lui est très complet, 
comporte des illustrations originales. La 
ludothèque du « petit gris » est encore 
réduite, mais se construit de jour en jour. 
Elle offre des jeux de réflexion, 
d'adresse, et même des jeux d'aventu¬ 
res conversationnels de fort bon niveau. 
Appareil complet, le Lynx dispose de 
grandes possibilités d'extension et 
s'avère simple d'utilisation. Son basic 
puissant et la qualité de son graphique 
sont des arguments de poids sur un mar¬ 
ché déjà fort encombré. 

RADIOSCOPIE 

Origine : Grande-Bretagne 

Connection TV : péritel 
Mémoire vive : 48 K 
Couleur: 8 
Son: oui 
Joystick : non 
Entrée cartouche : non 
Crayon optique : oui 
Disquette : oui 
Ludothèque : * ★ ★ ★ 

Prix : 3 000 F environ 



Gourmand 



Papillon 



Les folles haies 
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Le succès de l 'Prie 1 — qui justifie son 
rapport qualité-prix tout à fait remar¬ 
quable par la version 48 Ko — ne se 
démentit pas et ce, en dépit de l'ap pa¬ 

rition sur le marché de son succes ¬ 
seur, VOric Atmos. Les deux appareils 
ne présentent d'ailleurs aucune diffé¬ 
rence sur le plan te chnique. _ 

Par sa taille, VOric 7 se situe à mi-chemin 
entre l'ordinateur de poche et l'ordina¬ 
teur de table. Son boîtier et son clavier, 
de couleur sobre, ne permettent pas 
encore de le distinguer des autres ordi¬ 
nateurs. 


Nous avons aimé : 

— sa ludothèque importante et 
variée ; 

— son rapport qualité-prix ; 

— son basic puissant pour la 
réalisation de jeux ; 

— l'extension pour manette 
de jeux. 

Nous avons regretté : 

— sa mise en oeuvre trop 
compliquée ; 

— son manuel trop bref ; 

— le changement des cassettes, 
peu fiable ; 

— l'éditeur de programmes, in¬ 
complet. 


La connection au téléviseur exige une 
certaine habitude, sinon gare aux pan¬ 
nes ! Un détail nous a semblé anormal, 
l'alimentation péritel extérieure, qui res¬ 
semble fort à un bricolage de dernière 
minute. Le cordon magnétophone se 
connecte au niveau de l'ordinateur par 
l'intermédiaire d'une prise DIN. Adieu les 
fidèles jacks, n'oubliez pas d'en tenir 
compte pour l'achat d'un magnéto¬ 
phone. L ’Oric 1 possède deux vitesses 
de lecture et d'enregistrement, malheu¬ 
reusement la plus rapide n'est pas très 
fiable. Reste la première vitesse, assez 
lente, mais beaucoup plus sûre. 



Deux versions 16 ou 48 Ko confèrent à 
VOric 1, l'un des meilleurs rapports 
qualité-prix. Graphisme, couleur et son, 
tout y est. Son basic microsoft est puis¬ 
sant, mais l'éditeur, incomplet, ne per¬ 
met pas aux débutants une initiation 
aisée. Les huit couleurs et la haute réso¬ 
lution, 240x200 points, sont très sim¬ 
ples à utiliser. L'Oric 1 ne dispose pas des 
sprites mais vous pourrez redéfinir des 
caractères sur une matrice 8x8 points. 
Cela vous permettra de réaliser des jeux 
avec une animation graphique. Il com¬ 
porte aussi un générateur musical à trois 
voix. Pour améliorer la qualité sonore, 
n'hésitez pas à le connecter à votre 
chaîne hi-fi, le résultat vous étonnera. 
« Zap » émet un son d'arme galactique 
à laser, « Ping » le tintement d'une clo¬ 
chette, « Shoot » la détonation d'un 
coup de fusil et « Explode » une explo¬ 
sion. Le manuel, trop bref, n'aborde pas 
toutes les finesses de la programmation, 
le langage machine, notamment, est 
passé sous silence. Mais, les possibilités 
du basic de VOric 1 permettent l'élabo¬ 
ration de jeux assez évolués pour un tel 
langage. 

Avec l'apparition de l'extension joystick, 
VOric 1 est devenu un ordinateur de jeux 
à part entière. Sa ludothèque s’est beau¬ 
coup étoffée en moins d'un an car, d'une 
dizaine de logiciels, nous en dénombrons 
aujourd'hui une centaine. Actuellement, 
la majorité des jeux proposés par 
Loriciels-No Man's Land et Dialog infor¬ 
matique, réalisés par des Français fonc¬ 
tionnent sur Oric 1 et Atmos. Leur but ? 
Proposer sur le marché français et peut- 
être pour l'exportation des logiciels entiè¬ 
rement « Made in France » pour concur¬ 
rencer les créations outre-Atlantique. 
L'Oric-Atmos, qui prend aujourd'hui la 
relève, a de beaux jours devant lui. 


RADIOSCOPIE 

Origine : Grande-Bretagne 

Connection TV : 

* péritel 

* UHF antenne pal 
RAM: 16 ou 48 Ko 
Son : oui 

Couleur : 8 

Joystick : avec extension 1 

Entrée cartouche : non 
Crayon optique : oui 
Disquette : oui 
Ludothèque : ★ ★ ★ * * 

Prix: remplacé par l'Atmos, 
2450 F environ 



Night Track 



Altitude 0 
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SEGA-YENO SC 3000 

CHAPEAU BAS ! 


Yeno, vous ne connaissez pas 
encore ? Pourtant, il s'agit du Sega SC 
3000 doté d'un clavier mécanique et 
d'une mémoire de base beaucoup 
plus puissante de 32 Ko RAM. Son 
constructeur, Sega, est un spécialiste 
de la création de jeux vidéo. C'est 
pourquoi le Yeno SC 3000 possède 
d'excellentes qualités graphiques en 
haute résolution et une grande faci¬ 
lité d'animation. 

Le clavier est extrêmement complet et 
facilite grandement la saisie des pro¬ 
grammes. Sur le côté du boîtier, quatre 
touches d'édition facilitent la correction 
des erreurs qui peuvent se glisser dans 
l'élaboration d'un logiciel. Les 
connections sont fiables et simples, il 
suffit d'utiliser la prise péritélévision. 
Mais attention, car le câble cassette n'est 
pas fourni avec l'appareil. 

Les passionnés de jeux pourront assou¬ 
vir leur vice, soit à l'aide d'un ou deux 
joysticks, soit en utilisant les quatre tou¬ 
ches d'édition. Mais le SC 3000 est-il dif¬ 
ficile à programmer en basic ? Eh bien 
oui et non. Si certaines instructions vous 
facilitent la tâche, en revanche, avec 
d'autres, vous risquez la crise de nerfs. 
La mémoire vive utilisable de 16 ou 
32 Ko est très correcte, à condition de 
rester dans des domaines classiques, car 
il est assez gourmand en octets. Aux 
côtés des instructions pratiques comme 
« Bande » qui trace un cercle, vous 
pourrez commander une manette de 
jeux dans vos propres logiciels. 


Nous avons aimé : 

— son rapport qualité-prix ; 

— l'animation graphique en basic 
(32 sprites) ; 

— le manuel français, clair ; 

— sa facilité d'utilisation. 

Nous avons regretté : 

— les manettes de jeux Sega ; 

— la programmation de la durée 
des sons ; 

— l'impossibilité de mélanger 
textes et graphismes en haute 
résolution ; 

— le clavier caoutchouc pour la 
première version. 


Plusieurs instructions vous aideront à 
concevoir des logiciels de jeux. La plus 
intéressante étant sans aucun doute 
« Sprite ». Vous définissez avec « Pat¬ 



tern » au plus 32 caractères graphiques 
sur une matrice de 8 x 8 points. Vous 
pourrez ensuite intervenir sur ces carac¬ 
tères à loisir-et ainsi les animer, changer 
leur taille... Pour obtenir de beaux gra¬ 
phismes, il n'y a pas de secret, il faut un 
ordinateur avec des qualités artistiques. 
Le SC 3000 n'en manque pas, car en 
plus d'une haute résolution de 
256 x 192 points, il dispose de seize 
couleurs. 


RADIOSCOPIE 

Origine: Hong Kong 
Connection TV : * péritel 

RAM : 16 ou 32 Ko 
Son : oui 

Couleur: 16 
Joystick : oui 2 
Entrée cartouche : oui 
Crayon optique : non 
Disquette : oui 
Ludothèque : * * * * 

Prix : 2 200 F environ 


La génération de musique est, elle aussi, 
pleine de surprises. Le SC 3000 possède 
un synthétiseur à six canaux, les notes 
émises s'échelonnant sur quatre octa¬ 
ves. Vous sonoriserez vos logiciels grâce 
aux instructions « Bip » et « Sound ». 
Enfin, si la musique sur ordinateur vous 
attire, le SC 3000 possède d'excellentes 
qualités sonores. 

Sega est connu pour ses logiciels d'arca¬ 
des. Le SC 3000 ne démentira pas cette 
solide réputation, car les jeux fonction¬ 
nant sur le Yeno s'inscrivent parmi les 
meilleurs actuellement commercialisés 
sur le marché. Le Yeno SC 3000 est un 
micro-ordinateur qui conviendra aux 
débutants. Son manuel est un peu aus¬ 
tère car il présente les instructions basic 
sans suite logique. Mais, chacune d'elles 
est accompagnée d'un exemple qui faci¬ 
litera la compréhension de ce langage. 
Un coup de chapeau à Sega qui propose 
un ordinateur avec l'un des meilleurs rap¬ 
ports qualité-prix. 
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ZX SPECTRUM 

DE L'ETOFFE 



Après le succès foudroyant des ZX 80 
et 81, Sinclair se devait de les doter 

d'un grand frère, qui conserve leurs 

principales qualités et gomme leurs 

défauts les plus gênants. A cet égard, 

le Spectrum est une réussite. 


Un peu plus grand que son prédéces¬ 
seur, le Spectrum a une esthétique 
agréable. Il se présente comme une 
petite boîte noire, facilement reconnais¬ 
sable grâce à sa bande aux couleurs de 
l'arc-en-ciel. Il est livré avec un cordon 
de raccordement péritel. Son clavier 
Qwerty, à touches en gomme, est supé¬ 
rieur à celui du ZX 81, même si sa mol¬ 
lesse de frappe ne peut lui permettre de 
rivaliser avec un « vrai » clavier. Les tou¬ 
ches sont à répétition automatique et 
possèdent chacune plusieurs fonctions. 

L'entrée des mots clés s'effectue en une 
seule opération. C'est pratique, à condi¬ 
tion de bien maîtriser le clavier, car les 
symboles sur chaque touche abondent I 
La définition graphique est de 
176 x 256 points. Huit couleurs sont 
offertes, qui peuvent clignoter, et sont 
proposées chacune en deux brillances. 

Détail intéressant pour ceux qui ne pos¬ 
sèdent qu'un téléviseur noir et blanc : Jes 
couleurs se traduisent par une gamme 
de gris décroissants. Côté graphisme, 
« Draw » trace une droite ou une courbe 
entre le dernier point et les coordonnées 
relatives précisées, « Plot » concrétise le 
point, et « Circle » dessine un cercle. Ces 
instructions permettent de travailler faci¬ 
lement avec les graphiques. On regret¬ 
tera seulement l'absence d'une com¬ 
mande permettant le remplissage d'une 
figure fermée. Mais on dispose de 
16 caractères semi-graphiques et de 
21 caractères reprogrammables et mixa- 
bles en plus du texte et des graphiques. 
Seuls reproches : la qualité des couleurs 
n'est pas toujours irréprochable, et cha¬ 
que carré de 8 x 8, correspondant à un 
caractère, ne peut contenir que deux 
couleurs. 


Nous avons aimé : 

— son rapport qualité-prix ; 

— ses possibilités graphiques ; 

— sa ludothèque. 

Nous avons regretté : 

— l'absence de logement 
cartouche ; 

— son clavier. 



Crashtown 




Hop Hop ! 





La voix du Spectrum est un peu faible, 
mais on peut l'amplifier par l'intermé¬ 
diaire de la prise micro. Elle offre une 
étendue de 10 octaves, ce qui constitue 
un record. « Beep » gère les sons et indi¬ 
que durée et hauteur des notes par rap¬ 
port au do de la clé. Les sons ainsi obte¬ 
nus, émis par le petit haut parleur incor¬ 
poré, sont de faible intensité et de qua¬ 
lité moyenne. On peut cependant amé¬ 
liorer le système en branchant un petit 
amplificateur au téléphone sur la prise 
« mic ». Le Spectrum peut recevoir une 
extension de mémoire 32 K, imprimante, 
lecteur de disquettes. Pour la version 16 
K : imprimante, lecteur de disquettes 
type Cyborg ou Sinclair. Dans ce dernier 
cas, il s'agit d'une bande sans fin. Le 
modèle n'est pas encore commercialisé 
en France. L'interface cassette intégrée 
est fiable, à condition de débrancher les 
jack « ear » et « mic » à la sauvegarde. 
Pour les poignées de jeu il existe deux 
types d'interface : une simple qui permet 
de brancher deux manettes ; une autre, 
plus complète, qui autorise la connection 
d'une seule manette, mais qui constitue 
un amplificateur sonore et améliore 
encore la fiabilité de l'interface cassette. 
Les manettes sont des « Quick Shot » — 
les même que pour le ZX 81 —, excel¬ 
lentes. La gamme des logiciels de jeux 
est très étendue et ne cesse de s'étof¬ 
fer. Elle comprend des jeux de réflexion 
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Boderma 



(Echecs, Othello, Awari), d'aventures 
semi-graphiques, de simulation (vol, 
entreprise pétrolière, commerce, aéro¬ 
port), d'éducation, et de très nombreux 
jeux d'action. 


RADIOSCOPIE 

Origine : Grande-Bretagne 

Connection TV : péritel 
Mémoire vive: 16 K 
Couleurs écran : 8 
Son : oui 
Joystick : oui 
Entrée cartouche : non 
Crayon optique : non 
Disquette : oui 
Ludothèque : * * * * * 
Prix: 1 850 F (16 K péritel). 



LES JEUX ET LES MICRO DU FUTUR AU PRÉSENT 


• MICRO-ORDINATEURS 

• ATARI (600 XL et 800 XL) 

• APPLE 

• COMMODORE 

• LOGICIELS 

• en stock 

les meilleurs programmes 
en tête des hit-parade 
américains 

• sur commande 
tous les logiciels 
disponibles aux U.S.A. 

(+ de 4000 titres). 

• VENTE/REPRISE et LOCATION 

• VENTE PAR CORRESPONDANCE 

• SERVICE “NOUVEAUTÉS” 
16(1)622.17.79 


117, AVENUE DE VILLIERS 75017 PARIS - M° PEREIRE - TEL. 766.11.77. 
OUVERT DU LUNDI AU SAMEDI INCLUS DE 10 H A 19 H 30 
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APPLE IMI* 

ROLLS DES MICROS 


Si Apple vient d'annoncer la venue 
d'un nouvel ordinateur, le Macintoch, 

l ’Apple II, apparu il y a presque 

six ans, est encore prêt à faire face à 

la concurrence sans cesse croissante. 

L'Apple II est sans doute l'ordinateur 

qui nous a réservé le plus de surpri¬ 

ses, autant par le nombre de ses 
extensions que par la variété de ses 

jeux.__ 

Il a souvent été présenté comme la 
« Rolls » des micro-ordinateurs, une 
chose est sûre, son prix justifie pleine¬ 
ment cette affirmation puisque il vous en 
coûtera environ 15 000 F pour obtenir 
l'unité l'unité centrale, le moniteur (écran 
TV vert et blanc), un lecteur de disquet¬ 
tes et un contrôleur (joystick). 


Nous avons aimé : 

— sa très vaste ludothèque ; 

— ses nombreuses extensions ; 

— sa grande fiabilité ; 

— la qualité des graphismes. 
Nous avons regretté : 

— son rapport qualité-prix ; 

— ses dimensions ; 

— son basic incomplet ; 

— listings de jeux pour Apple II 0 . 


L'Apple II possède la plus grande variété 
et la plus vaste ludothèque existante sur 
un micro-ordinateur. Les jeux ne sont 
pas sa vocation première ; programma¬ 
tion et gestion d'entreprise restent, 
jusqu'à nouvel ordre, ses sports favoris. 
L'Apple II e , nouvelle version de l'« ancê¬ 
tre » Apple II, possède entre autre, une 
mémoire vive de 64 Ko. Il se connecte 
directement sur un moniteur Philips, 
l'image, bien qu'en vert et blanc, 
demeure excellente. Une carte, livrée en 



option et dotée d'une sortie vidéo péri¬ 
télévision adapte l 'Apple au système 
Secam. Elle offre, autre avantage pré¬ 
cieux, la très haute résolution de 
560 x 192 points. Celle-ci est réservée 
aux utilisateurs Français, seuls capables 
d'étendre, avec cette extension, la 
mémoire vive de leur ordinateur à 
128 Ko. En version de base, la haute 
résolution atteint 280 x 192 points avec 
six couleurs, ce qui n'est pas si mal. 
La nouvelle version de l 'Apple II e , dis¬ 
pose aujourd'hui d'un connecteur joys¬ 
tick extérieur. Son clavier gris est 
dépouillé de toutes les petites touches 
inutiles, et programmer devient un véri¬ 
table plaisir. Cet ordinateur est totale¬ 
ment modulable, c'est le système évo¬ 
lutif par excellence. 

Dans sa version de base de 64 kilo-octets 
mémoire vive, l'Apple II programme en 
basic Applesoft. Les habitués constate¬ 
ront que ce langage comporte quelques 
lacunes. Mais, il est possible de s'offrir 
le logo, l'assembleur, le pascal, le forth 
ou le basic évolué. Ne possédant que 
très peu d'instructions graphiques, 
l'Apple II n'est pas l'outil idéal pour la 
réalisation de jeux d'action. Mais la créa¬ 
tion de jeux d'aventures se révèle beau¬ 
coup plus facile. Pour réaliser des jeux 
d'arcades, l'assembleur offre le maxi¬ 
mum de garanties. Le mode texte donne 
accès à 24 lignes de 40 ou 80 caractères. 
Vous pourrez également composer de 
petites musiques, mais celles-ci n'ont 
rien d'exceptionnel. Le point fort de 
l'Apple II est indiscutablement sa biblio¬ 
thèque de logiciels, développée par un 
grand nombre de sociétés américaines. 
Mais, depuis presque un an, des socié¬ 
tés françaises commercialisent des logi¬ 
ciels en français, presque exclusivement 
sur disquettes. Seul regret, leur prix qui 
avoisine les 500 F. 


RADIOSCOPIE 

Origine: États-Unis 

Connection TV : 

* moniteur et prise péritel avec 
extension Sécam 
RAM : 48 Ko 
Son : oui 

Couleur: 16 
Joystick : 2 
Entrée cartouche : non 
Crayon optique: oui 
Disquette: oui 2 
Ludothèque : 

Prix : 9 950 F environ 



PTTEMTION PRET Tl 


TEMPS • 2.3 8 


Alcooltest 



Stock Car 



702 en péril 




























Tl 99/4 A 

REGRETS ETERNELS 


Le Tl 99, c'est une star hollywoo¬ 
dienne. Apparu en 1980 sur le marché 
américain, il s'envole rapidement vers 
la célébrité... Et disparaît en pleine 
gloire, à la fin de l'année 1983. Regrets 
éternels... Car Texas Instruments pro¬ 

posait une machine facilement utili¬ 
sable, aussi bien par les adultes que 
par les enfants (bravo les manettes !) 
aussi à l'aise dans le jeu que dans la 

programmation._ 

Le clavier de type Qwerty est fonction¬ 
nel et efficace, malgré sa petite taille. Il 
compte 48 touches à répétition automa¬ 
tique, dont 15 de fonctions program¬ 
mées et 31 programmables avec ver¬ 
rouillage alphabétique minuscules et 
majuscules. Pas de problème pour bran¬ 
cher la prise péritei, à condition de se 
rapprocher du téléviseur : le cable est 
bien court ! L'une des principales quali¬ 
tés du Tl 99 est son générateur de sons : 
3 sons simultanés sur 5 octaves. Le 
générateur de bruits modulables, hertz 
par hertz — de 20 Hz à 110 Hz - est inté¬ 
gré dans la console. Malgré le tableau de 
correspondances, la programmation par 
fréquence est moins agréable que celle 
réalisée note par note, si l'on veut jouer 
un air précis. 


Nous avons aimé : 

— son design ; 

— ses possibilités sonores ; 

Ndus avons regretté : 

— la suppression du Tl 99 sur le 
marché ; 

— certaines limitations du basic 
résident ; 

— sa difficulté de gestion 
graphique. 


L'image obtenue est de bonne qualité. 
Le « Ti Basic » — particulier mais pas 
aussi spécifique qu'on pourrait le penser 
— constitue le langage résident avec des 
moyens supplémentaires le basic 
étendu, l'assembleur, le Tl logo et 
l'UCSD Pascal restent accessibles. 

Le graphisme est défini par 
192x256 points, et l'on dispose d'une 
palette de 16 couleurs. Celles-ci sont 
gérées assez facilement par l'instruction 
« Call Color ». L'image est définie par 
24 lignes (c'est peu) et 32 colonnes. 
L'écran n'est adressable point par point 
qu'avec certains langages. 

De même, la haute définition n'est pas 



Météores 



Racing Z 



Capricorne Two 


directement accessible sur le basic stan¬ 
dard. En revanche, côté extensions, pas 
de problème : imprimante, extension de 
mémoire 32 K, modem, lecteur de cas¬ 
settes, de disquettes, et synthétiseur 
vocal doté d'une bibliothèque de 
300 mots. On peut également enficher 
des cartouches, en toute sécurité : l'ali¬ 
mentation des circuits correspondants 
est coupée automatiquement lors de 
l'engagement d'une cartouche. Après 
l'enclenchement, ces circuits sont remis 
sous tension. 

Si le T! 99 n'est plus présent dans les 
rayons des magasins, pas de problème 
par contre côté logiciels, au moins pour 
l'instant. La ludothèque est intéressante 
et variée. On trouve des programmes sur 
cassettes, disquettes et modules enfi¬ 
chables, et pour tous les goûts : jeux 
éducatifs bien construits, jeux d'aventu¬ 
res, de stratégie (Echecs, Othello, Puis¬ 
sance 4), d'adresse, avec des bruitages 
et des décors réussis. Bien sûr, le 77 99 


L 


Master 



Ludicourb 


a aussi quelques défauts. Les extensions 
sont chères, le Tl Basic est lent et peu 
puissant et la programmation du gra¬ 
phisme demeure complexe en basic 
étendu. Enfin et surtout, il faut se rabat¬ 
tre sur le marché de l'occasion pour se 
procurer un TI 99... 



RADIOSCOPIE 

Origine: Etats-Unis 

Connection TV : péritei 
Mémoire vive : 16 K 
Son : oui 
Couleur: 16 
Joystick : oui 
Entrée cartouche : oui 
Crayon optique : non 
Disquette : oui 
Ludothèque : * * * * * 
Prix : 1 000 F environ* 


• D’occasion, l’ensemble complet, entre 1500 F et 4 500 F 
« selon inventaire ». 
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Un cocorico pour le TQ7, micro fami¬ 
lial français. Il est agréable à l'œil et 
très facile à mettre en route._ 

L'alimentation est intégrée, il suffit de 
brancher le T07 sur le secteur et sur la 
prise péritel d'un poste TV pour qu'il soit 
prêt à l'emploi. Dans l'enthousiasme, ne 
pas oublier pourtant de vérifier que la 
cartouche de basic est bien dans son 
chargeur. Le T07, en effet, n'a pas de 
basic résident. Mais celui proposé sur 
cette fameuse cartouche a été mis au 
point par Microsoft lui-même, et quelle 
réussite ! Sa puissance fait presque 
oublier la faible capacité de mémoire vive 
de la machine (8 K utilisateur en version 
de base). 

Nous avons aimé : 

— son crayon optique ; 

— sa présentation ; 

— ses capacités graphiques ; 

Nous avons regretté : 

— son manque de mémoire vive ; 

— son clavier ; 

— les manettes de jeu peu 
pratiques ; 

A proximité du clavier, un crayon opti¬ 
que vient se cacher dans son logement. 
Bonne idée, ce crayon. Il permet de 
« converser » plus facilement avec la 
machine. Hélas, il faut, pour s'en servir, 
mettre la luminosité à fond, et bien sûr 
s'approcher très près de l'écran. Les 
yeux n'apprécient que modérément 
cette gymnastique. Si son clavier, reste 
de glace face à de la confiture-qui- 
dégouline, les touches, avec leur rebord, 
ont une fâcheuse tendance à rebondir. 
Heureusement, ces touches sont auto¬ 
répétitives, et leur appui est confirmé par 
un « bip » sonore, un peu fatigant mais 
efficace. L'image obtenue sur le télévi¬ 
seur est stable et les couleurs sont satu¬ 
rées. L'affichage apparaît sur une fenê¬ 
tre de 25 lignes et 40 colonnes, définie 
sur 320 x 200 points, ce qui est excel¬ 


lent pour une machine de cette gamme. 
On peut mélanger facilement texte et 
graphisme. Les huit couleurs (y compris 
le noir et le blanc) sont très faciles à gérer 
et disponibles simultanément sur l'écran, 
quelle que soit leur proximité. 

Le T07 est doté d'un générateur qui per¬ 
met la composition musicale sur 5 octa¬ 
ves. Les commandes sont très simples : 
« Play » permet de programmer facile¬ 
ment la musique. Il suffit d'écrire les 
notes (do, ré, mi,...) et de préciser atta¬ 
que, longueur, octave, tempo. 

La paire de manettes de jeu n'est pas 
idéale. Leur tenue n'est pas très adap¬ 
tée aux mains des enfants, le bouton 
d'action plutôt mou, tout comme le res¬ 
sort de rappel du manche, ne facilite pas 
la tâche des maniaques du joystick. La 
ludothèque proposée par Vifi-Nathan est 
de qualité, et s'étoffe de mois en mois. 
On trouve essentiellement des jeux de 
réflexion à caractère éducatif. TO Tek, 
une marque créée par Thomson, prépare 
des jeux d'arcades très évolués. D'ici la 
fin de l'année, l'ensemble des éditeurs 
devraient sortir plusieurs dizaines de logi¬ 
ciels. On ne peut plus dire que l'inten¬ 
dance du T07 ne suit pas ! Il aurait été 
d'ailleurs dommage de ne pas profiter 
des capacités graphiques de cet ordina¬ 
teur, par ailleurs intéressant pour l'édu- 
cation et l'initiation. 

RADIOSCOPIE 

Origine: France 
Connection TV : 

* péritel 

Mémoire vive : 22 K (8 K utilisa¬ 
teur) 

Couleur : 8 

Son : oui 

Joystick : oui 

Entrée cartouche : oui 

Crayon optique : oui 

Disquette : oui 

Ludothèque 

Prix : 2 500 F environ + 530 F 
cart. basic. 




Parcours 




Les tours infernales 
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UN EVENEMENT... 



Almanach de l'Aventure et du Voyage en vente partout.45 F . 







VIC 20 

PROGRAMMÉ POUR JOUER 


Le VIC 20 de Commodore est l'un des 

premiers micro-ordinateurs à connaî¬ 

tre une très grande diffusion. Après 
presque trois ans de commercialisa¬ 
tion, deux millions de VIC 20 ont été 
vendus dans le monde. Malgré ce 

succès, il a été remplacé par un 

modèle plus performant, le Commo¬ 

dore 64. Mais le VIC 20 garde toujours 
de nombreux adeptes, pour preuve : 

le très grand nombre de logiciels ludi¬ 

ques disponibles dans les boutiques 
spécialisées. 



- ■ ' 


L'aspect du Commodore VIC 20 est très 
proche du Commodore 64, seules leurs 
couleurs sont différentes. Le VIC 20 pos¬ 
sède un boîtier beige avec un clavier 
brun compact, dont quatre touches de 
fonctions sur le côté droit. Après une 
longue attente, Procep commercialisa 
son appareil avec un modulateur Sécam, 
intégré, qui remplaça avantageusement 
l'interface PS 2000, trop coûteuse. Le 
VIC 20 peut donc fonctionner sur la piste 
antenne de n'importe quel téléviseur 
français. Un petit regret sans gravité : il 
n'existe qu'un seul connecteur pour 
joystick et les branchements sont nom¬ 
breux. 

Très rapidement, les 3,5 Ko mémoire 
vive de base vont devenir insuffisants. 
Dans ce cas, une seule solution : éten¬ 
dre les capacités du VIC 20 jusqu'à 
16 Ko, grâce à une cartouche d'exten¬ 
sion mémoire. Il ne dispose pas de la 
haute résolution graphique, mais de 
23 lignes de 22 caractères. Avec ses 
16 couleurs et les caractères semi- 
graphiques, la création de jeux est tout 
de même possible. Mais, en utilisant le 
langage machine par l'intermédiaire des 
instructions « Peek » et « Poke » vous 
pourrez redéfinir des caractères, pour 
32 


Nous avons aimé : 

— son port cartouche ; 

— sa ludothèque 
impressionnante ; 

— sa grande fiabilité ; 

— le nouveau modèle avec 
interface Secam intégrée. 

Nous avons regretté : 

— la faible résolution graphique ; 

— son basic un peu particulier ; 

— la possibilité de connecter un 
seul joystick; 

— sa faible mémoire vive de 
base. 


cela il faut de bonnes connaissances du 
basic. Celui du VIC 20 est assez complet, 
mais présente quelques particularités 
d'utilisation. Exemple, il n'est pas pos¬ 
sible de commander un joystick à l'inté¬ 
rieur du logiciel sans un super expander 
de mémoire vive. 

Le VIC 20 possède un générateur de 
sons (alto, ténor, soprano). Il est ainsi 
possible de le transformer en orgue élec¬ 
tronique. Tous les éléments sont pré¬ 
sents pour la réalisation de logiciels ludi¬ 
ques. Le manuel d'emploi l'accompa¬ 
gnant est clair, on y apprend par exem¬ 
ple comment animer des oiseaux sur 
l'écran. Les notions difficiles sont expli¬ 
quées par des bulles, façon bande des¬ 
sinée. Le VIC 20 est doté aujourd'hui 
d'une fabuleuse ludothèque. Loriciels et 
Run Informatique proposent depuis 
quelques mois des jeux français pour ce 
micro-ordinateur, une tentative timide, 
bien accueillie par le public. Ordinateur 
passionné de programmation, il se trans¬ 
forme, avec une manette de jeux et les 
cartouches, en véritable console. Mal¬ 
heureusement, Commodore compte 
bientôt suspendre définitivement la com¬ 
mercialisation du VIC 20. 


RADIOSCOPIE 

Origine: Etats Unis 

Connection TV : 

* UHF antenne Secam 

* UHF antenne pal 

* péritel. 

RAM : 3,5 Ko 
Son : oui 
Couleur : 8 
Joystick: 1 

Entrée cartouche : oui 
Crayon optique : oui 
Disquette: oui 
Ludothèque : ★ ★ ★ * ★ 
Prix : 2 390 F environ 



Laser Oméga 





































ZX 81 

LA FOLIE DES GRANDEURS 


Doit-on encore présenter le ZX 81 ? Il 
fait déjà figure d'ancêtre, et les 
méchantes langues pourraient l'affu- 
bler de tous les défauts : un clavier qui 
n'en est pas un, une mémoire vive 

ridicule (1 K !) en version de base, pas 
de son, pas de couleur, une image TV 

de qualité moyenne et une connec¬ 

tion sur la prise antenne... Stop ! Arrê¬ 
tez le massacre ! 

LeZX 81, c'est d'abord une réussite ex- 
tra-or-di-nai-re : le million d'exemplaires 
est largement dépassé, dont plus de 
110 000 exemplaires vendus en France. 
C'est, à lui seul, un véritable phénomène 
de la micro-informatique. 

Car le ZX 81 est un authentique ordina¬ 
teur au rapport qualité-prix sans concur¬ 
rence, doté d'une ludothèque convena¬ 
ble et d'énormes possibilités d'extension. 
Il se transforme à mesure que grandit la 


Nous avons aimé : 

— sa ludothèque ; 

— son rapport qualité-prix ; 

— ses possibilités d'extension ; 

— ses manettes de jeux. 

Nous avons regretté : 

— son clavier a membrane ; 

— son manque de mémoire vive. 


maîtrise informatique de son proprié¬ 
taire, au point de devenir presque 
méconnaissable, avec un clavier électro¬ 
nique, 48 K RAM, le son, la couleur... 
La carte sonore, par exemple, donne aux 
jeux une nouvelle dimension, avec trois 
voies simultanées programmables sur 
sept octaves avec contrôle de l'enve¬ 
loppe. La carte couleur offre une palette 
de 16 couleurs et permet l'utilisation 
d'une prise péritel, d'où la facilité de mise 
en place et la qualité des images. 

Les deux manettes de jeu se branchent 
par l'intermédiaire d'une interface qui 
contrôle les deux poignées dont la prise 
en main est excellente. Deux boutons 
d'action sont disponibles, un sur le haut 
de la manette, l'autre sur le boîtier, qui 
est, quant à lui, muni de ventouses pour 
jouer d'une seule main. 

Pour profiter des jeux disponibles sur 
cartouches, il suffit de se procurer une 
interface, qui offre, en outre, la haute 
résolution. Rappelons qu'en version de 
base, le ZX 81 ne propose qu'une défi¬ 
nition graphique de 44 x 64 points, géra- 
bles uniquement par « Plot. » 



La ludothèque est complète : jeux 
d'action, jeux d'aventures, wargames, 
jeux de réflexion, de simulation (vol, 
escalade). Tous ces jeux nécessitent 
l'extension de mémoire 16 K. 



Zigzag 


Pour un prix de base défiant toute 
concurrence, Sinclair propose un vérita¬ 
ble ordinateur. Et, contrairement à la 
grenouille de la fable, il saura devenir — 
presque — aussi gros que le bœuf ! 



Appontage 




La résidence secondaire 
du savant fou 


RADIOSCOPIE 

Origine : Grande-Bretagne 

Connection TV : antenne 
Mémoire vive: 1 K 
Couleur: non 
Son : non 
Joystick : oui 
Entrée cartouche : oui 
Crayon optique: non 
Disquette : oui 
Ludothèque : *★*■** 
Prix : 580 F 
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Chaque mois, 
recevez Tilt chez vous. 

Vous économiserez 35 F. 

En vous abonnant dès aujourd'hui à TILT vous bénéficierez d'une réduction 
exceptionnelle de 35 F sur votre abonnement d'un an : vous ne réglerez en 
effet que 130 F pour 10 numéros au lieu de 165 F, prix au numéro. Et puis vous 
etes assuré que ce prix ne bougera pas puisqu'il sera payé une fois pour toutes. 

Vous recevrez TILT, dès parution 

10 numérOS par an. Dès que TILT sort de presse, les 
numéros des abonnés sont expédiés sans délai. 

Et vous savez que dans chaque numéro de TILT : 

-vous découvrez les nouveaux jeux électroniques en avant première (consoles, 
micro ordinateurs, flipper, échecs, backgammon, jeux de poche, calculettes). 

- Vous choisissez les plus performants grâce à des tests complets et détaillés. 

- Vous améliorez vos performances car TILT vous donne des trucs de spécialistes 
pour devenir un vrai champion. 

- Vous mettez au point des jeux inédits 
qui feront de vous le «spécialiste» qui 
utilise à fond les possibilités de ce 
nouveau domaine. 


Vous revevrez 
uncadeau : 
JEUX EN TETE 
un numéro de Tl LT 
hors série. 

16 pages de jeux inédits faisant ap¬ 
pel, entre autre, à la logique, la pa¬ 
tience, la déduction, le calcul, l’ob¬ 
servation etc... De quoi stimuler vos. 
cellules grises qui adorent cela ! 

Aujourd'hui même 
renvoyez la carte ci-contre. 





























ïÿff ffrez-vous la possibilité d'adapter des pro- 
grammes créés pour des ordinateurs 
différents du vôtre. En effet, certains 
,: ;. v micro-ordinateurs possèdent des caracté¬ 
ristiques communes. Par exemple, l'ins- 
truction «Sprite» se retrouve sur le 
Commodore 64, le Yeno-Sega SC 3000 et 
les Atari400, 800, 600XL et 800XL. Les jeux conçus 
pour ces ordinateurs sont facilement adaptables. 
Malheureusement, il ne suffit pas de prendre un pro¬ 
gramme ligne par ligne et de remplacer la syntaxe des 
ordres de basic. Il faut aussi tenir compte de nombreux 
autres impératifs, la taille de l'écran en haute résolu¬ 
tion, le nombre de couleurs, les sons... Certains micro¬ 
ordinateurs possèdent des ordres qui leur sont 
propres. Il est alors difficile de transcrire un pro¬ 
gramme d'une machine à l'autre. Ce type d'exercice 
est facilité si vous maîtrisez parfaitement la program¬ 
mation de votre ordinateur. Bien sûr, l'adaptation ne 
semble pas évidente au premier abord, mais, avec de 
la persévérance, vous trouverez forcément la solution 
de tous vos problèmes. Les tableaux qui suivent sont 
là pour vous aider. 
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ÉQUIVALENCES DES INSTRUCTIONS BASIC 



ORDRES BASIC 


ORDINATEURS 


ALICE - MATRA 
MC 10 - TANDY 


ATARI 600 XL/800 XL/400/800 ABS (x) 


ATMOS - ORIC 


COMMODORE 64 


COMMODORE-VIC 20 



DRAGON 32/64 


ELECTRON ACORN 
BBC module B 


HECTOR HRX - BASIC III ABS (x) 


LASER 200/300 cl 



Opérateur 

logique 

et 


Codes ASCII 
du premier 
caractère 


Tangente 

inversée 


Lignes : Conversion 

numérotation d’un nbre bin. 
automatique en décimale 


TEXAS INSTRUMENTS 
TI 99/4A 


THOMSON - T07 


x AND y ASC (x$) 


x AND y ASC (xS) 


x AND y ASC (xS) 


x AND y ASC (x$) 


x AND y ASC (x$) 


x AND y ASC (x$) 


ABS (x) A COS (x) x AND y ASC (xS) A SIN (x) ATN (x) 


x AND y ASC (xS) 


ABS (x) ACS (x) x AND y ASC (xS) ASN (x) ATN (x) AUTO x, y 




ABS (x) AR COS (x) x AND y ASC (xS) ARC SIN (x) ARC TAN (x) AUTO x.y 


x AND y ASC (xS) 



ABS 

00 

ABS 

(x) 

ABS 

(x) 

ABS 

(x) 

ABS 

(x) 

ABS 

(x) 

ABS 

(x) 

ABS 

(x) 



x AND y ASC (xS) 


x AND y ASC (xS) 



SINCLAIR - ZX 81 


SINCLAIR ZX - SPECTRUM ABS (x) ACS (xS) x AND y 



x AND y ASC (xS) 


x AND y ASC (xS) 



ABS (x) ACS (x) x AND y ASC (xS) ASN (x) ATN (x) AUTO x, y 
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EQUIVALENCES DES INSTRUCTIONS BASIC 


ORDRES BASIC 

ORDINATEURS 

Renvoie h nne 
roodne en 
langage machine 

Donne un 
caractère i partir 
dn code ASCII 

Nombre 
en double 
précision 

Effacement 
des variables 

Chargement 
d’un logiciel 
sur cassette 

Chargement 
d'un logiciel 
sur disquette 

Effacement 
de l’écran 

ALICE - MATRA 

MC 10 - TANDY 

- 

7 CHRS (x) 

- 

CLEAR 

CLOAD “ ” 

- 

CLS 

APPLE II* 

CAL X 

7 CHRS (x) 

- 

CLEAR 

LOAD “ ” 

LOAD “ " 
RUN “ ” 

HOME 

ATARI 600 XL/800 XL/400/800 


7 CHRS (x) 

- 

CLR 

CLOAD “ ” 

CLOAD " ” 

GRAPHICS 0 

ATMOS - ORIC 

CALL X 

7 CHRS (x) 

. - 

CLEAR 

CLOAD " " 

- 

CLS 

COMMODORE 64 

SYS x 

? CHRS (x) 

- 

CLR 

LOAD " ", 1 

m 

CLS 

COMMODORE-VIC 20 

SYS x 

7 CHRS (x) 

- 

CLR 

LOAD " ", 1 

m 

CLS 

DAI 

CALL x, y 

? CHRS (x) 

- 

CLEAR 

m 

LOAD “ ” 

CLS 

DRAGON 32/64 

EXEC x 

7 CHRS (x) 

- 

CLEAR x 

"CLOAD “ " 

- 

CLEAR 

ELECTRON ACORN 

BBC modèle B 

CALL x, y 

7 CHRS (x) 

- 

CLEAR 


LOAD " ” 

CLS 

CLO 

HECTOR HRX - BASIC III 

USR x,y 

? CHRS (x) 

- 

CLEAR 

LOAD " " 

LOAD “ " 

CLS 

LASER 200/300 e( 500 

USR x, y 

? CHRS (x) 

- 

CLEAR 

CLOAD “ " 
CRUN 

— 

CLS 

LYNX 

CALL x 

? CHRS (x) 

- 

- 

LOAD “ ” 

B 

- 

ORIC 1 

CALL x 

7 CHRS (x) 

- 

CLEAR 

CLOAD " ” 


CLS 

SINCLAIR - ZX 81 

USR x 

- 

- 

CLEAR 

LOAD " " 

- 

CLS 

SINCLAIR - ZX SPECTRUM 

USR x 

- 

- 

CLEAR 

LOAD " ” 

- 

CLS 

TEXAS INSTRUMENTS 

TI 99/4A 

- 

7 CHRS (x) 

- 

- 

OLD “ ” 

— 

CALL CLEAR 

THOMSON - T07 

- 

? CHRS (x) 

CDBL (x) 

CLEAR 

LOAD “ " 

m 

CLS 

YENO SC 3000 

SEGA SC 3000 

CALL 

? CHRS (x) 

- 

CLEAR 

l 

CLOAD “ ” 

— 

CLEAR 

























































































































ÉQUIVALENCES DES INSTRUCTIONS BASIC 


ORDRES BASIC 

ORDINATEURS 

Suite 

d’exécution 
après stop 

Couleur 

écran 

Cosinus 

Sauvegarde 
d'un logiciel 
sur cassette 

Sauvegarde 
d’un logiciel 
sur disquette 

Variables 

en 

Hchier 

Définition 
d'une fonction 
mathématique 

Conversion 

angulaire 

ALICE - MATRA 

MC 10 - TANDY 

CONT 

CLS x 

COS (x) 

C SAVE "x” 

- 

DATA x, y, 

- 

- 

APPLE n* 

CONT 

H COLOR x 

COS (x) 

C SAVE “x” 

SAVE “x” 

DATA x, y, 

DEF FN X = 

- 

ATARI 600 XL/800 XL/400/800 

CONT 

COLOR x 

COS (x) 

C SAVE “x” 

■ ~ 

DATA x, y, 

— 

DEG (x) 

ATMOS - ORIC 

CONT 

INK x 

COS (x) 

C SAVE "x" 

- 

DATA x, y, 

DEF FN x = 

— 

COMMODORE 64 

CONT 

- 

COS (x) 

SAVE "x” 

SAVE ••x”, 8 

DATA x. y, 

DEF FN X = 

- 

COMMODORE-VIC 20 

CONT 

- 

COS (x) 

SAVE "x” 

* 

SAVE “x”, 8 

DATA x, y. 

DEF FN x « 

- 

DAI 

CONT 

COLOR T x 
COLOR G x 

COS (x) 

SAVE “x" 

SAVE “x” 

DATA x, y. 

- 

- 

DRAGON 32/64 

CONT 

CLS X 
COLOR X 

COS (x) 

C SAVE "x" 

- 

DATA x. y. 

DEF FN x = 

- 

ELECTRON ACORN 

BBC modèle B 

- 

COLOUR x 

COS (x) 

SAVE “x" 

- 

DATA x, y. 

DEF FN x - 

DEG (x) 

HECTOR HRX - BASIC III 

CONT 

COLOR x 

COS (x) 

C SAVE 

- 

DATA x, y. 

DEF FN x = 

- 

LASER 200/300 el 500 

CONT 

COLOR x 

COS (x) 

C SAVE "x” 

— 

DATA x, y. 

- 

- 

LYNX 

CONT 

INK x 

COS (x) 

SAVE "x" 

SAVE "x” 

DATA x, y. 

- 

- 

ORIC 1 

CONT 

INK x 

COS <x) 

C SAVE -x" 

— 

DATA x, y, 

DEF FN x = 

— 

SINCLAIR - ZX 81 

— 

- 

COS (x) 

SAVE “x” 

- 

- 

- 

- 

SINCLAIR - ZX SPECTRUM 

CONTINUE 

INK x 

COS (x) 

SAVE "x" 

- 

DATA X, y. 

DEF FN X = 

- 

TEXAS INSTRUMENTS 

Tl 99/4A 

- 

COLOR x. y 

COS (x) 

SAVE "x" 

- 

DATA x, y. 

DEF FN x = 

' - 

THOMSON - T07 

CONT 

COLOR x. y 

COS (x) 

SAVE “x" 

SAVE ‘'x” 

DATA x. y. 

DEF FN x = 

- 

YENO SC 3000 

SEGA SC 3000 

CONT 

COLOR x, y 

COS (x) 

SAVE “x" 

- 

DATA x, y. 

DEF FN X = 

DEG 
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ÉQUIVALENCES DES INSTRUCTIONS BASIC 


ORDRES BASIC 

ORDINATEURS 

Dimensions 
de tableaux 

Fin 

de programme 

Exponentielle 

Variable 

arrondie 

Flash écran 

Instruction 
début de 
bonde 

Renvoie 

sons 

programme 

Renvoie 
à ane ligne 
de programme 

ALICE - MATRA 

MC 10 - TANDY 

DIM x 

END 

EXP (x) 

- 

— 

FOR I = x 

GOSUB x 

GOTO x 

APPLE II* 

DIM x 

END 

EXP (x) 

- 

FLASH 

FOR I = x 

GOSUB x 

GOTOx 

ATARI 600 XL/800 XL/400/800 

DIM x 

END 

EXP (x) 

— 

— 

FOR 1 = x 

GOSUB x 

GOTO x 

ATMOS - ORIC 

DIM x 

END 

EXP (x) 

- 

- 

FOR 1 = x 

GOSUB x 

GOTO x 

COMMODORE 64 

DIM x 

END 

EXP (x) 

— 

- 

FOR 1 - x 

GOSUB x 

GOTOx 

COMMODORE-VIC 20 

DIM x 

END 

EXP (x) 

- 

- 

FOR I - x 

GOSUB x 

GOTO x 

DAI 

DIM x 

END 

EXP (x) 

- 

- 

FOR 1 - x 

GOSUB x 

GOTO x 

DRAGON 32/64 

DIM x 

END 

EXP (x) 

FIX (x) 

- 

FOR I - x 

GOSUB x 

GOTO x 

ELECTRON ACORN 

BBC modèle B 

DIM x 

END 

EXP (x) 

- 

FLASH 

FOR 1 - x 

GOSUB x 

GOTO x 

HECTOR HRX - BASIC III 

DIM x 

END 

EXP (x) 

- 

FLASH x. y 

FOR I - x 

GOSUB x 

GOTO x 

LASER 200/300 et 500 

DIM x 

END 

EXP (x) 

- 

- 

FOR I - x 

GOSUB x 

GOTO x 

LYNX 

DIM x 

END 

EXP (x) 

ROUND ON 

- 

FOR I = x 

GOSUB x 

GOTO x 

ORIC 1 

DIM x 

END 

EXP (x) 

— 

- 

FOR 1 = x 

GOSUB x 

GOTO x 

SINCLAIR - ZX 81 

DIM x 

— 

EXPO (x) 

- 

— 

FOR I = x 

GOSUB x 

GOTOx 

SINCLAIR - ZX SPECTRUM 

DIM x 

- 

EXP x 

- 

? FLASH x 

FOR 1 = x 

GOSUB x 

GOTO x 

TEXAS INSTRUMENTS 

Tl 99/4A 

DIM x 

END 

EXP (x) 

- 

— 

FOR I = x 

GOSUB x 

GOTOx 

THOMSON - T07 

DIM x 

END 

EXP x 

FIX (x) 

- 

FOR I = x 

GOSUB x 

GOTO x 

YENO SC 3000 

SEGA SC 3000 

DIM x 

END 

EXP (x) 

- 

- 

FOR I = x 

GOSUB x 

GOTOx 
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ÉQUIVALENCES DES INSTRUCTIONS BASIC 


ORDRES BASIC 

ORDINATEURS 

Conversion de 
dérimale en 
hexadécimale 

Test logique 

Renvoie 

■prés 

test logiqne 

Saisie d'une 
touche su 
davier 

Question 
enregistrée dans 
une Tiriabie 

Partie eitière 
d’un nombre 

Ecran en 
vidéo Inversé 

Extrait lea 
caractères 
d'une chaîne 

ALICE - MATRA 

MC 10 - TANDY 

— 

IF-THEN 

IF-THEN 

ELSE 

1NKEY S 

INPUT 

INT (x) 

— 

LEFT S (xS. y) 

APPLE II* 

— 

IF-THEN 

IF-THEN 

ELSE 

GETxS 

INPUT 

• 

INT (x) 

INVERSE 

LEFT S(x$,y) 

ATARI 600 XL/800 XL/400/800 

- 

IF-THEN 

IF-THEN 

ELSE 


INPUT 

INT (x) 

— 

x$ (AS,x) 

ATMOS - ORIC 

HEXS (x) 

IF-THEN 

IF-THEN 

ELSE 

GET xS 

INPUT 

INT (x) 

- 

LEFTS (x.y) 

COMMODORE 64 

— 

IF-THEN 

IF-THEN 

ELSE 

GETxS 

INPUT 

INT (x) 

— 

LBFTS (x.y) 

COMMODORE - VIC 20 

— 

IF-THEN 

IF-THEN 

ELSE 

GETxS 

INPUT 

INT (x) 


LEFTS (x.y) 

DAI 

- 

IF-THEN 

IF-THEN 

ELSE 

GETCxS 

INPUT 

INT (x) 

— 

LEFTS (x.y) 

DRAGON 32/64 

HEXS (x) 

IF-THEN 

IF-THEN 

ELSE 

INKEYS 

INPUT 

INT (x) 

- 

LEFTS (x.y) 

ELECTRON ACORN 

BBC modèle B 

- 

IF- fHEN 

IF-THEN 

ELSE 

INKEYS 

INPUT 

INT (x) 

PLOT x.y 

LEFTS (x.y) 

HECTOR HRX - BASIC III 

HEXS (x) 

IF-THEN 

IF-THEN 

ELSE 

INKEYS 

INPUT 

INT (x) 

INVERSE 

LEFTS (x.y) 

LASER 200/300 el 500 

— 

IF-THEN 

IF-THEN 

ELSE 

INKEYS 

INPUT 

INT (x) 

INVERSE 

LEFTS (x.y) 

LYNX 

- 

IF-THEN 

IF-THEN 

ELSE 

KEYS 

INPUT 

INT (x) 

- 

LEFTS (x.y) 

ORIC 1 

HEXS (x) 

IF-THEN 

IF-THEN 

ELSE 

GET xS 

INPUT 

INT (x) 

— 

LEFTS (x.y) 

SINCLAIR - ZX 81 

- 

IF-THEN 

IF-THEN 

ELSE 

INKEYS 

INPUT 

INT (x) 

INVERSE 

- 

SINCLAIR - ZX SPECTRUM 

— 

IF-THEN 

IF-THEN 

ELSE 

INKEYS 

INPUT 

INT (x) 

INVERSE 

— 

TEXAS INSTRUMENTS 

TI 99/4 A 

- 

IF-THEN 

IF-THEN 

ELSE 

INKEYS 

INPUT 

INT (x) 

— 

— 

THOMSON - T07 

HEXS (x) 

IF-THEN 

IF-THEN 

ELSE 

INKEYS 

INPUT 

INT (x) 

— 

LEFTS (x.y) 

YENO SC 3000 

SEGA SC 3000 

HEXS (x) 

IF-THEN 

IF-THEN 

ELSE 

INKEYS 

INPUT 

INT (x) 

— 

LEFTS (x,y) 
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ÉQUIVALENCES DES INSTRUCTIONS BASIC 


ORDRES BASIC 

ORDINATEURS 

Nbre caract. 
d'une chaîne 
alphanumérique 

Initialisation 
d'one variable 

Logarithme 

népérien 

Branchement 
k une ligne 

Eut. d'une var. 
sur le point 
choisi 

Lecture d'une 
adresse 
mémoire 

Affichage 
d'un point 
k l'écran 

Stock, d'1 ear. 

k 1 adresse 
mém. donnée 

ALICE - MATRA 

MC 10 - TANDY 

LEN (xS) 

LET x = 

LOG (x) 

ON x GOTO 

— 

PEEK (x) 

SET (x.y) 

POKE x.y 

APPLE II* 

LEN (x$) 

LETx = 

LOG (x) 

ON x GOTO 

- 

PEEK (x) 

PLOT (x.y) 

POKE x.y 

ATARI 600 XL/800 XL/400/800 

LEN (x$ 

LET x = 

LOG (x) 

ON x GOTO 

— 

PEEK (x) 

PLOT (x.y) 

POKE x.y 

ATMOS - ORIC 

LEN-(xS) 

LETx = 

LN (x) 

ON x GOTO 

POKE 341. x 

PEEK (x) 

CURSET (x.y) 

POKE x.y 

COMMODORE 64 

LEN (xS 

LET x = 

LOG (x) 

ON x GOTO 

— 

PEEK (x) 

- 

POKE x.y 

COMMODORE-VIC 20 

LEN (xS) 

LET x = 

LOG (x) 

ON x GOTO 

— 

PEEK (x) 

- 

POKE x.y 

DAI 

LEN (xS) 

LETx = 

LOG (x) 

ON x GOTO 

OUT x.y 

PEEK (x) 

DOT (x.y) 

POKE x.y 

DRAGON 32/64 

LEN (xS) 

LETx = 

LOG (x) 

ON x GOTO 

- 

PEEK (x) 

PSET (x.y.z) 

POKE x.y 

ELECTRON ACORN 

BBC modèle B 

LEN (x$) 

LETx = 

LN (x) 

ON x GOTO 

BPUT H x ' 

— 

PLOT (x.y) 

— 

HECTOR HRX - BASIC III 

LEN (xS) 

LETx - 

LOG (x) 

ON x GOTO 

OUT x.y 

PEEK (x) 

PLOT (x.y) 

POKE x.y 

LASER 200/300 el 500 

LEN (xS) 

LETx = 

LOG (x) 

— 

OUT x.y 

PEEK (x) 

SET (x.y) 

POKE x.y 

LYNX 

LEN (x$) 

LET x = 

LOG (x) 

- 

OUT x.y 

PEEK (x) 

DOT (x.y) 

POKE x.y 

ORIC 1 

LEN (xS) 

LETx = 

LN (x) 

ON x GOTO 

POKE 344. x 

PEEK (x) 

CURSET (x.y) 

POKE x.y 

SINCLAIR - ZX 81 

LEN (xS) 

LET x = 

LN (x) 

— 

— 

PEEK (x) 

PLOT (x.y) 

POKE x.y 

SINCLAIR - ZX SPECTRUM 

LEN <x$) 

LET x = 

LN (x) 

— 

- 

PEEK (x) 

PLOT (x.y) 

POKE x.y 

TEXAS INSTRUMENTS 

TI 99/4A 

LEN (xî) 

LETx = 

LOG (x) 

ON x GOTO 

— 

— 

CALL 

MCHAR (x.y) 

- 

THOMSON - T07 

LEN (xS) 

LETx = 

LOG <x) 

ON x GOTO 

- 

PEEK (x) 

PSET (x.y) 

POKE x.y 

YENO SC 3000 

SEGA SC 3000 

LEN (xS) 

LETx = 

LOG (x) 

ON x GOTO 

OUT x.y 

PEEK (x) 

PSET (x.y.z) 

POKE x.y 
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ÉQUIVALENCES DES INSTRUCTIONS BASIC 


ORDRES BASIC 

ORDINATEURS 

Positionne 
le curseur 
i l'écran 

Impression 

d'un 

caractère 

Impression 
variable nam. 
arec formatage 

Génération 
de nombres 
aléatoires 

Lecture des 
. data 

Lignes 
ignorées 
par l'ordinateur 

Initialisation 
des lectures 
de data 

Fin de 
sons 

programme 

ALICE - MATRA 

MC 10 - TANDY 

PRINT SI x, 

PRINT" 

- 

RND (x) 

READx 

REM 

RESTORE 

RETURN 

APPLE II' 

M TAB (*) 

V TAB (y) 

PRINT" 

- 

RND (x) 

READ x 

REM 

RESTORE 

RETURN 

ATARI 600 XL/800 XL/400/800 

POSITION x, y 

PRINT" 

- 

RND (x) 

READx 

REM 

RESTORE 

RETURN 

ATMOS - ORIC 

PRINT AT x, y 

PRINT" 

PRINT USING 

RND (x) 

READx 

REM 

RESTORE 

RETURN 

COMMODORE 64 

POS (x) 

PRINT" 

- 

RND (x) 

READx 

REM 

RESTORE 

RETURN 

COMMODORE-VIC 20 

POS (x) 

PRINT" 

— 

RND (x) 

READx 

REM 

RESTORE 

RETURN 

DAI 

CURSOR (x,y) 

PRINT" 

- 

RND (x) 

READx 

REM 

RESTORE 

RETURN 

DRAGON 32/64 

POS (x) 

PRINT" 

PRINT USING 

RND (x) 

READ x 

REM 

RESTORE 

RETURN 

ELECTRON ACORN 

BBC modèle B 

POS (x) 

PRINT" 

PRINT USING 

RND (x) 

READ x 

REM 

RESTORE 

RETURN 

HECTOR HRX - BASIC III 

CURSOR (x,y) 

PRINT" 

PRINT USING 

RND (x) 

READ x 

REM 

RESTORE 

RETURN 

LASER 200/300 et 500 

PRINT ax. 

PRINT" 

PRINT USING 

RND (x) 

READ x 

REM 

RESTORE 

RETURN 

LYNX 

POS (x) 

PRINT" 

- 

RND (x) 

READ x 

REM 

RESTORE 

RETURN 

ORIC 1 

CURSOR x, y 

PRINT" 

PRINT USING 

RND (x) 

READ x 

REM 

RESTORE 

RETURN 

SINCLAIR - ZX 81 

PRINT AT x, y 

PRINT" 

PRINT USING 

RND (x) 

— 

REM 

- 

RETURN 

SINCLAIR - ZX SPECTRUM 

PRINT AT x, y 

PRINT" 

PRINT USING 

RND (x) 

READ x 

REM 

RESTORE 

RETURN 

TEXAS INSTRUMENTS 

TI 99/4A 

- 

PRINT" 

• — 

RND (x) 

READ x 

REM 

RESTORE 

RETURN 

THOMSON - T07 

LOCATE x. y 

PRINT" 

PRINT USING 

RND (x) 

READ x 

REM 

RESTORE 

RETURN 

YENO SC 3000 

SEGA SC 3000 

CURSOR x, y 

PRINT" 

PRINT USING 

RND (x) 

READx 

REM 

RESTORE 

RETURN 
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ÉQUIVALENCES DES INSTRUCTIONS BASIC 


ORDRES BASIC 

Extrait les ranci. 

Détecter si 

Ug« 

ta 


Arrêt 

Passage d'une 

Redéfinition et 

ORDINATEURS 

d’une chaîne 
alphanumérique 

un poinl est 
allumé à l'écran 

d’une 

variable 

ranét 

en cours 
d’exécution 

variable nnméq. 
en alphanuméq. 

animation d'un 
dessin définitif 

ALICE - MATRA 

MC 10 - TANDY 

RIGHTS (x$,y) 

POINTS (x.y) 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (x$) 

- 

APPLE II' 

RIGHTS (xS.y) 

SCRN (x.y) 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STR$ (xS) 

- 

ATARI 600 XL/800/XL 400/800 

— 

- 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (xS) 

SPRITE 

Al MOS - ORIC 

RIGHTS (xS.y) 

SCRN (x.y) 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (xS) 

- 

COMMODORE 64 

RIGHTS (xS.y) 

- 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (xS) 

POKE 

COMMODORE-VIC 20 

RIGHTS (xS.y) 

- 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (xS) 

- 

DAI 

RIGHTS (xS.y) 

SCRN (x.y) 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (xS) 

- 

DRAGON 32/64 

RIGHTS (xS.y) 

- 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (xS) 

- 

ELECTRON ACORN 

BBC modèle B 

RIGHTS (xS.y) 

POINT (x.y) 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (xS) 

-• 

HECTOR HRX - BASIC 111 

RIGHTS (xS.y) 

POINT (x.y) 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (xS) 

- 

LASER 200/300 et 500 

RIGHTS (xS.y) 

POINT (x.y) 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (xS) 

- 

LYNX 

RIGHTS (xS.y) 

- 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (xS) 

- 

ORIC 1 

RIGHTS (xS.y) 

SCRN (x.y) 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (xS) 

— 

SINCLAIR - ZX 81 

RIGHTS (xS.y) 

- 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (xS) 

- 

SINCLAIR - ZX SPECTRUM 

RIGHTS (xS.y) 

ATTR (x.y) 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (xS) 

- 

TEXAS INSTRUMENTS 

TI 99/4A 

- 

— 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (xS) 

CALL SPRITE 

THOMSON - T07 

RIGHTS (xS.y) 

- 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (x$) 

- 

YENO SC 3000 

SEGA SC 3000 

RIGHTS (xS.y) 

- 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRS (xS) 

SPRITE 
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ÉQUIVALENCES DES INSTRUCTIONS BASIC 


ORDRES BASIC 




Fin 

Valeur numérique 


. ORDINATEURS 

Tangente 

texte 

interne 

de bondes 
conditionnelles 

d'une chaîne 
alphanumérique 

Pause 

ALICE - MATRA 

MC 10 - TANDV 

TAN (x) 

— 

— 

- 

VAL (xS) 

- 

APPLE II' 

TAN (x) 

TEXT 

- 

- 

VAL (xS) 

WAITx 

ATARI 600 XL/800 XL/400/800 

TAN (x) 

GRAPHICS 

- 

— 

VAL (xS) 

- 

ATMOS - ORIC 

TAN (x) 

TEXT 

— 

UNTIL (X) 

VAL <x$) 

WAIT x 

COMMODORE 64 

TAN (x) 

- 

TIS 

- 

VAL (xS) 

WAIT x,y,z 

COMMODORE-VIC 20 

TAN (x) 

- 

- 

- 

VAL (xS) 

WAIT x.y.z 

DA! 

TAN (x) 

MODE (0) 

- 

- 

VAL (x$) 

WAIT x.y.z 

DRAGON 32/64 

TAN (x) 

- 

TIMER 

- 

VAL (xS) 

- 

ELECTRON ACORN 

BBC modèle B 

TAN (x) 

MODE (0) 

TIME 

UNTIL (x) 

VAL <x$) 

- 

HECTOR HRX - BASIC III 

TAN (x) 

— 

- 

- 

VAL (xS) 

- 

LASER 200/300 el 500 

TAN (x) 

MODE (0) 

- 

- 

VAL (xS) 

- 

LYNX 

TAN (x) 

- 

- 

- 

VAL (x$) 

PAUSE X 

ORIC I 

TAN (x) 

TEXT 

- 

UNTIL (x) 

VAL (xS) 

WAITx 

SINCLAIR - ZX 81 

TAN (X) 

- 

- 

- 

VAL (xS) 

PAUSE x 

SINCLAIR - ZX SPECTRUM 

TAN (x) 

- 

- 

- 

VAL (xS) 

PAUSE x 

TEXAS INSTRUMENTS 

Tl 99/4A 

TAN (x) 

- 

- 

- 

VAL (x$) 

- 

THOMSON - T07 

TAN (X) 

- 

- 

— 

VAL (x$) 

- 

YENO SC 3000 

SEGA SC 3000 

TAN (x) 

SCREEN 1.1 

TIME S 

— 

VAL (xî) 

- 
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Egalement disponibles sur cassettes et disquettes 


BON DE COMMANDE 


Mettre une croix dans la (les) case (s) correspondant à votre choix. 


CASSETTES 

(5 jeux par cassettes) : 

SO F T.T.C. l'unité. 

1 - Alice MC-10 

D Puissance 4 

Tic Tac Toc 

Jack Pot 

L'Attrappe 

Réflexes 

5 - DAI 

□ s.o.s. 

Saut en longueur 
Intergalactique 

Le pigeon agile 
Miniwar 

9 - Oric 1 

Ci Nicht Track 

Oric Briques 
Altitude 0 
Longchamps 
Tiltman 

14 - T07 

D Boopy 

Parcours 

Nuclear 

Duel 

Les tours infernales 

2 - Atari 800-400 
600 XL-800 XL 

D Saut de haies 

Les bons bonds 

Prof 

Girobattle 

Chasseur 

6 - Hector HR 

□ Crazy Bang 
Anglomanie 

La pétanque 
Alphabétophage 

La chenille 

10 - Sega-Yeno SC 
3000 

D Formule 1 

S.O.S. Lune 
Torpilleurs 

Mission survie 

Othello 

15 - VIC 20 

□ Labyrinthe 

Raid sur New York 
Globber 

Schuss 

Laser Oméga 

3 - B.B.C.-Electron 

□ Puissance 4 
Mille-pattes 

Smokkar 

Prison 

Les chenilles 

7 - Laser 200/210 

□ Tchouka 

Squash 

Le phoque 

Car Fight 

L'âne rouge 

11 - Spectrum 

□ Crashtown 

Cars 

Hop hop 1 

Bomber 

Hélicos 

16 - ZX 81 

□ Zig Zag 

La maison du savant 
fou 

La résidence secon¬ 
daire du savant fou 
Appontage 

Glouton 

4 - Commodore 64 

D Vampires 

Le Kid 

Helicruise 

Starfall 

Shadow 

8 - Lynx 

D Moutons 

Gourmand 

Beyrouth 

Papillon 

Les folles haies 

12 - Tl 99/4A 

□ Météores 

Racing Z 
Capricorne Two 
Master 

Ludicourb 

DISQUETTES 

(5 jeux par disquettes) : 

99 F T.T.C. l'unité 

Apple-ll - II e 

D Kamikaze 

Alcool test 
Alunissage 

Stock car 

702 en péril 


Faites votre total et ajouter 10 F de port pour la France et 20 F de port pour l'étranger et les 
DOM-TOM. Le réglement peur s'effectuer soit par chèque bancaire ou postal, soit par mandat à 
l'ordre de : D.D.I. 

Merci de retourner ce bon de commande accompagné de votre réglement sous enveloppe affranchie 
à D.D.I. - Centre d'Affaires Paris Nord « Le Bonaparte » 93153 Le Blanc-Mesnil. 

□ M. □ Mme □ Mlle 

Nom : _ Prénom : _ 

Adresse : _ 

Code Postal I I I I I I Ville : _ 
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ALICE. MC 10 TANDY 


PUISSANCE 4 

Voici un jeu de réflexion à perdre la tête. 

Le thème est assez classique, mais l'aspect de la grille est déroutant. 
Vous jouez contre la machine, alors faites bien attention, 
car aucune erreur de tactique n'est permise. 


BUT DU JEU 


Chaque joueur dispose d'un nombre de 
pions illimité. Le but à atteindre est sim¬ 
ple. Il fautalignerquatre pions,dansn'im- 
porte quelle direction. Mais vous ne pou¬ 
vez pas mettre votre pion n'importe où. Il y _ 

1 CLS : CLEflR 

3 REM COPYRIGHT TILT MICRO 
5 F O R X = 1 T O 7 •• U C X > = 4 1 7 = N E X T : X = 0 
10 DIMRC80 > 

50 PRIHTGI228. "***** PIJISSfiNCE-4 
*****“ > ■■ F 0 R U = 1 T 0 3 0 0 0 = H EXT 
100 PR I NT@230,"PU ISSRNCE-4" 

130 G08UB10000 
150 G0T03500 

20Ô I F M = 3 T H E H RC10*0-10 >=1 
300 IF M = 1 5 R H D E:=0 T H E N X = 0 = Y< X >=UC X 
> + C4*X > = PRINT@YCX >, "x"i■ SOUND30, 

4 

350 IFM=15RHDB=0THENPRIHT@3," 
-PEROU-" = SOUND40,4 = 

5 0 U N D 5 0,4=F0RU=1TO3000: N EXT = GOTO 
13000 

400 N = N+R C 6 1 +M > = RETURN 
500 C=C+ 1 : IFCOS6THE N R E T U R H 
600 SOUND 100,3 = PRINTS10,. " MFlTCH 
NUL ! ! ! "=SOUND60,3 - SOUND160,4 F0 
RU=1 TO30Û0:NEXT» GOTO 13000 
700 P=5-RC0 ) : R<10 * P+0> = L 
800 R< 0>=RC0 >+1 :RETURN 
300 RC-1 0*0- 1 8 >=0 : N = 0 : P = 5-RC 0 > = IF 
P = 0THENN=-1 :RETURN 
1000 IFP<>5THENM = 0: F 0 R H =1T04:G=1 

2 ^ GOTO3500 

1200 I FP >= 1 THENM = 0 : F0RH=2T05 s G=.l 

4 : G 0 T 0 3 5 0 0 

1400 E=1 :F = 0: IFO>4THENE=0-3 = F = 4 

1 6 0 0 FOR D = E T0 F : M=0 : FOR G=D T 0D + 3 = M 

=M+RCP*10+G> 

1650 NEXT G ^ GOSUB200: N EXT D 

1800 fl = p + Ü 

1850 I FP< > 5 Fl N D R >=5 fl N D R < = S THE N Q = 1 

: G 0 S U B 80 0 0 



a sept colonnes et vous ne pouvez les dé¬ 
poser que l'un au-dessus de l'autre. Il est 
donc impossible de mettre un pion dans la 
colonne 1 au niveau 1, et au tour suivant 
dans la même colonne mais au niveau 6. 


AU CLAVIER 


Pour placer un pion, il suffit d'indiquer à 

l'ordinateur la colonne choisie. Il s'occupe 
du reste : affichage du tableau destiné à 
visualiser le jeu, et détection du joueur 
gagnant. 


2000 I F P < >1 fl H D R > = 6 fl N D fl < = 3 T H E N Û =1 
! GQSUB8500 
2200 R = 0- F’ 

2400 I FF'< >5RNDR > = 0RNDR< =3THENQ = 0 
: GOSUB8000 

2600 IFP<>lANDfl>=-lRNDfi<=2THENQ= 
0 : GGSUB8500 
2800 RETURN 
3500 RC 68>=10000 

3600 RC 61>=0.01 

3601 RC 62>=0.1 

3602 RC 63 >=1 

3603 RC 64>=1000 

3604 RC 66 >=1 

3605 RC 71 >=100 

3 6 06 R C 7 6 > =100 0 0 
3800 GOSUB500 

4000 B$ = I N K E Y $ = PR I NT@3, “ V 

0 T R E COLONNE = ?" 

4200 IFB$< * 1 2 * 4 * * * * * * 11 1 "ORB*>"7"THEN4000 
4300 B=VRLCB$> 

4400 GOSUB12000 
4600 0 = B : IFRC0 > = 5 T H E N 4 0 0 0 
4800 L=1'GÛSUB700;IFRC10*0-10>=1 
T H E N P RINT @ 3 j" ***** FELITITRTIO 

HS *****" : F 0 R E = 10TO200 = SOUNDE .• 1 = 
NEXT = F0RU=1TO3000»NEXT = GOTO 13008 
5080 GOSUB500 = B=0 = J=0 = F0R0 =1TO?: 
GOSUB980^IFN>=JTHENJ=N : L=0 
5280 NEXTO : 0=L 

5400 L = 5 : GOSUB700 = B = 1=GOSUB900=I 

FRC10*0-10>=1THEN6000 

5808 GOSUB1210@:GOTO3800 

6800 FORK=0TO 0+5=I=K-7*INTCK/7> 

+ 1 

6100 
6208 


IFI = LTHENK=16 = NEXT = GOTO5808 
IFRCI>=5THEHNEXT=GOTO5800 
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6400 RCCP+l>*10+O)=0 


11200 SETC47,T,5) 

6458 RC0 >=RC0 >-I*GOSUB900 = 0=1=K= 


11380 SETC55,T,5) 

16 = NEXTK 


11400 SETC63,T,5) 

6500 GOT05480 


11508 NEXT=SQUND76,2=SOUND150,2 ; 

8000 M = 0: F 0 R H =1T0 4 = GOTO9080 


S0UND215,2 

.8580 M=0 : F 0 R H = 2 T 0 5 


11600 T = 480 

9000 G=A-H:IFQ=0THENG=H+H+G 


11700 F 0 R S =1 T 0 7 

9180 M = M + R<10*H+GXNEXT = GOSUB200 


11758 T=T+4 

: R E T U R N 


11800 PRINT6T,SJ 

9580 M = M+R(18*H+0 ) : NEXT:GOSUB280 


11900 : NEXT ’• RETURN 

9600 G0 SU B 2 0 0 


12080 W$ = " o" = X = B ’• GOTO 12208 

9708 IFG=14THEN1400 


12108 W$="x" : X=0 

9800 IFG=12THEN1200 


12200 YCX >=UCX ) + C4*X ) 

10000 IFV=5THEN12000 


12250 PRINT63," " 

10850 V=5=CLS0:SOUND200,3 


12300 I FYCX X126THENRETURN 

10108 F0RS = 7T063 


12358 PRINT6YCX 

18200 SETCS,31,5) 


12370 SOUND 150,2 

10308 SETCS,30,5) 


12400 UC X>=UCX>-64 

10408 SETCS,29,5) 


12580 RETURN 

10580 NEXT 


13008 PRINT@3," UNE AUTRE 

10600 FORT = 6T029 


PARTIE ?" 

10780 SETC7,T,5) 


13100 D $ = IH K E Y î- 

10880 SETC15,T,5) 


13200 IFD$="N"THENCLS=END 

10908 SETC23,T,5) 


13308 IFD$=""THEH13080 

11800 SETC31,T,5) 


13408 GOTO 1 

11100 SETC39,T,5> 


■ 


TIC-TAC-TOC 

Ce logiciel est une adaptation du célèbre jeu de Morpion, 
bien connu des élèves. Mais ici, vous n'avez besoin 
que d'un ordinateur et d'un écran de télévision. 



_ BUT DU JEU _ 

Vous jouez contre l'ordinateur. Le vain¬ 
queur est celui qui aligne horizontale¬ 
ment, verticalement ou diagonalement 
trois pions identiques. Méfiez-vous car il 


ne suffit pas d’aligner vos propres pions, il 
faut aussi arrêter le jeu de l’adversaire. 

| AU CLAVIER ~~| 

Chaque case est numérotée de un à neuf. 


pour placer votre pion sur l’une d’elles, 
pressez la touche correspondant à ce 
nombre. Votre pion se place tout seul, et 
ainsi de suite jusqu'à la fin de la partie. 


1 REM COPYRIGHT TILT MICRO 
5 CLS : X=3 ! B=128 : D=32 
10 DATft?4 j 80, 85, 234 , 233.- 241,245, 
394,399,401,405, 1 

20 DATfi?3,?5,86,87,233,235,240,2 
46,24?, 393,395,400,486,407,2 
38 DATAI 50, 151,272,318,31 1,464,4 
70,471,438,439,3 
48 READA 
58 FÜRC=1 TQX 
68 I F A < 5 T H E N110 
78 PR I HT@A,CHR$C B ) ; 

80 A = A + D 


98 H EXT C 
100 GOTO 18 

110 IFA=1THEHD = 0: 8=131 =X=1 : G0T02 
0 

128 IF A=2THENB=140 = G0T038 

130 IFA=3THEHSOUHD100,4 

148 F 6RU= 1 TO 1 800 ^ N E X T = G0T0588 

580 CLS^ X=13 = C=4 = SOÜND200,4 

510 C=C+1 

528 S E T(X,C,3 > 

538 SETCX+12,C,3> 

540 SETCX+24,C,3> 

558 SETCX+36,C,3 > 
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560 

I FC=28THEN580 

570 

G 0 T 0 510 

580 

SET<X,4,3> 

590 

SETOÎ, 12,3 > 

600 

SET< X ,20,3 ) 

610 

SET< X, 28,3) 

620 

X = X+ 1 

630 

I FX=49THENC=,0 = GOTO650 

640 

GOTO580 

650 

DATA 170,176,182,298,304,310 

,426,432,438,1 

660 

C=C+l 

670 

READA 

680 

00 

IFA=1 THEN SOUND200,4 : GOTO 10 

690 

PRINTSR-1,ABS<C 

700 

GOTO650 

1000 

CLEAR:DIH2<30 > 

1020 

T=2:GOSUB1340 

1025 

Y=0:T=9=IFN=1THEN1050 

1030 

GOSUB1400 :GOSUB1340 

1035 

GOSUB1470 :GOSUB1400 

1040 

GOSUB1070^ GOSUB1400 

1045 

GOTO 1040 

1050 

PRINT68,"JE COMMENCE "=FORU 

= 1 T02000 :NEXT 

1055 

GOSUB1340=GOSUB1470 

1057 

70 

GOSUB1400^ GOSUB1340 = GOSUB14 

1060 

GOSUB1400 :GOSUB1070 

1065 

GOTO 1060 

1070 

K=0 = L = Y : Y=Y-1 

1080 

IFS=3THENY=L 

1090 

K' = K+1 : GOSUB 1560 

1095 

N = 10+W 

1100 

FORA=1T09 

1105 

IFA=N-10THEN1120 

1110 

I F2< N :j=Z< 10 + A > T H E N R = 4 5 - A - H - 

10 : IF R >10 RN D R < 2 0 T H E N116 0 

1120 

NEXTA 

1130 

IFS=3THENRETURN 

1140 

IFK=2THEN1240 

1150 

GOTO1230 

1160 

I F Y > = 9 T H E H1 2 5 0 

1170 

IFR=NTHEN1120 

1180 

I FR=10 + RTHEN1120 

1190 

IFS=3THEN1260 

1200 

IFZCR )=0THENY=L+1 : 2<Y> = R-10 

: U=1 = 

GOTO 1300 

1210 

I F S = 3 T H E N R E T U R N 

1220 

IFA<9THEN1120 

1230 

IFK=1THENY=L ^ GOTO 1090 

1240 

Y=L = GOSUB 1 340 •• GOSUB 1470 

1245 

I FYOTHENRETURN 

1250 

PR INTG10,"MATCH NUL ! ! ! " = SO 

UHD 1 00,3 ^ SOUND 130,3 : SOUND 160,3•F 

0R0= 1 T02000 : NEXT GOTO 1800 

1255 

SOT 05 

1260 

0 

IFZ.< A+10 >=Z( R >ANDK= 1 THEN 1 31 

1270 

I FS=3THEN1120 

1280 

I FYOTHENRETURN 


• FORQ 


■THENO-VRL 


1290 GOTO1250 

1306 G O S U B15 6 0^ GOSUB1470 

1305 GOTO1260 

1310 C$ =" J'Ri GAGNE ! !" 

1315 IFS=3THENC$="J J RI PERDU !!" 
1320 PR I HT58,C$ : GOTO1700 
1340 Y=Y+1 
1350 N=RND< T > 

1355 IFY<2THEH Z<Y>=N=RETURN 
1360 FORR=1 TOY-1 
1370 IFN=2<A >THEH1350 
1380 NEXTA 
1390 2< Y )=N = RETURN 
1400 Y = Y+1 : IFQ=5THEN1410 
1405 PRINTS10," A VOUS 
= 1TO2000: NEXT 
1410 S$=INKE Y$ 

1415 IFS$<="9"ANDS*>"0' 

< S$ > = G=5 : GOTOl430 
1420 GOTO1410 
FORft=lTOY 

IFO=J< A>THEN1410 
NEXTA 

2'Y >=0: IFY=> 5 T H E N G O S U B 1470 = 
S-3:GOSUB1@70:Y = L: S — 0^ RETURN 
1460 GOSUB1470 :RETURN 

GOSUB1560 ^ e$="o" = M=2 
IFG=5THENB$="x" = M=1 •• G = 0 
2< 10 + W )=M 
A$< 2< Y)>=B$ 

PR INT@0, " " 

IF0=1THENE=137 
IF0=2THENE=143 
IF0=3THENE=149 
IF0=4THENE=265 
IF0=5THENE=271 
IF0=6THEHE=277 
IF0=7THENE=393 
IF0=8THENE=399 
IF2< Y )=9THENE=405 
IF2CY)=1THENE=137 
IF2CY)=2THENE=143 
IFZ< Y )=3THENE=149 
IF2(Y )=4THEHE=265 
IF2CY >=5THENE = 271 
IF2<Y )=6THENE = 277 
IF2< Y)=7THENE=393 
IF2< Y >=8THENE = 399 
SOUND 125,1 : PR INT@E,B$; = FORQ 
= 1 TOI 500 : HEXT^ Q=5 
1550 RETURN 

GOTO 1570 

IF2C Y >=2THENW=1: 2 = 9 
IF2< Y >=3THENW=6 = 2=4 
IF2<Y >=4THENW=3: 2 = 7 
IF2(Y )=5THEHW=5» 2=5 
IF2< Y)=6THENW=7 = 2=3 
IF2CY >=7THENW=4: 2=6 
IF2(Y >=8THENW=9: 2=1 
IF2< Y >=9THENW=2 : 2=8 
I F2< Y >= 1 THENW=8 : 2=2 -• E= 1 37 
IFU=1THEN2< Y >=2 


1430 

1435 

1440 

1450 


1470 

1475 

1480 

1485 

1490 

1500 

1505 

1510 

1515 

1520 

1525 

1530 

1535 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 


1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1645 

1650 
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1660 U=0 


?" 

1670 RETURN 


1850 D$=INKEY$ 

1700 FQRU=1TQ15 : SOUNDU*10,2 *NEXT 


1950 IFD$="N"THENCLS=END 

: F0RU=1TO1500 :NEXT:CLEflR•GOTO180 


2000 IFD$=""THEN1800 

0 


2050 G0T05 

1800 PRINTS5," UNE AUTRE PARTIE 




,*oo^ JACK POT 

Vous avez toujours rêvé de «flamber» à Las Vegas. 

Et bien, tout est possible 

avec votre ordinateur. Pourquoi ne pas tenter votre chance 
devant une machine à sous ? 

C'est votre micro qui réglera la note !!! 



BUT DU JEU 


AU CLAVIER 


Vous devez à partir d'un capital de cent 
dollars gagner le plus possible. Misez, 
mais pas trop, car votre bourse s'épuise 
très rapidement. Faites bien attention car_ 
vous risquez de vous retrouver les poches 
vides, et de rentrer chez vous à pied. 


- Pour déclencher le jack pot, il suffit de 
miser entre 1 et 99 dollars. Ensuite l'ordi¬ 
nateur se charge du reste. Refaites la 
même opération pour toute nouvelle ten- 
ïativo: Vos gains sont en rapport avec la 
mise et le résultat du jack pot. 


- Voici les sommes gagnées suivant les 
sorties du jack pot : 


$ £ $ $ $ = 50 „ 

ttnprfù = 30 j 

00000 = 30$ 
$$$$ = 25$ 
UPPP= 15$ 

0 0 0 0 = 15 $ 




— 6 $ 
000—6 $ 
$$ = 5 $ 

Hit = 3 J 
no — 3 $ 


1 CL 8 


220 fl=fl+32 : B=B+32 

3 REM COPYRIGHT TILT MICRO 


230 PR I NT 0fl, CHR$< 149); 

5 GOSUB1100=8=0 


240 PR I NTI?B, CHR$< 154 ); 

6 CLS5 ; SOUND80#3 


250 NEXT 

10 DATA 103j 104,105, 135,137, 167, 1 


260 F0RA=37T059 

68,169,-1 


270 PRINT@fl,CHR$< 204 ) ; 

20 READA 


280 NEXT 

30 IFA=-1THEN100 


290 F0Rfl=198TQ218 

40 PRINTSA+B," ", 


300 PRINTSfl,CHR$<159); 

50 GOTO 10 


310 PRINTGfl+32,CHR$<159); 

100 B=B+4 


320 PR I NT6A-1 28, CHRT-C 159 ); 

110 RESTORE 


330 NEXT 

120 IFB>19THEN140 


340 F0RC=1T06 

130 GOTO 10 


350 D<C)=98+<4*C) 

140 F0RA=6T058 


355 E<C)=132+<4*C) 

150 SET< fl,16,3) 


360 PRINT@D<C),CHR$< 159); 

160 SET< fl,26,3 ) 


370 PR INT@D< C )+32,CHR$<159); 

165 fi=fl/2 : PRINTGfl+288,CHR$<150); 


380 PRINT@D< C)+64,CHR$<159); 

:H = fl*2 


385 IFC=6THEN4@0 

170 ft=fl/'2 : PR INT0R+352, CHR$< 150); 


390 PR INT6E< C ),CHR$<143); 

: fl = R*2 


400 NEXT 

180 fl=fl/'2 : FRINT6R+384, CHR$< 150); 


410 FORfl=450TO478 

:fl = R*2 


420 PRINTSR, 

185 P>=fl/2 : PR INT@fl+320,CHRÏ<143); 


430 PRI NT@ft+32,"-"; 

=fl=fl*2 


440 NEXT 

190 NEXT 


450 F0Rft=258T0418STEP32 

200 R=37=B=59 


460 PRINT@fl,CHR$< 202 ); 

210 F0RE = 1T06 


470 NEXT 
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480 F0Rfl=286T0446STEP32 
490 F'RINTGR, CHRf C 18?>; 

500 NEXT 

510 FORU=.l TO40 : SOUND220, 1 : NEXT 
520 CLEflR 
570 B = 0 :D $ =IH K EV f- 
580 PR INTG323, " MI £;£ = » ; B j 

590 I FDf > " 9 11 QRDf•< " 1 "THEN570 
595 PRINT5333," MISE : ";Bj 
800 B=VflLCDf>*10 
610 PRINT5331,B; 

620 U=U-B 

630 PR I NTG337, " RESTE = " ; IJ ; 

650 Ff="#$G*0+"=R=5 
655 H=H+1=IFH>6THEN680 
660 FORP=1 T05 :IFVflLCQfCP>>=HTHEN 
6 5 5 

665 NEXT 

670 CC H >=RNDC6 > ■ G0T0655 
680 PRINTG136, MIDfC Ff , C< 1 >, 1 >; 
690 PRI HTG 1 40 , MIDf C Ff , CC 2 >, 1 >; 
700 PR I HTG 1 44 , MI Df C F T , CC 3 >, 1 > ; 

710 PRIHTG148,MIDfCF$,CC4 >, 1 >; 
720 PRINT5152,MID$CFf,CC5>, 1 >; 

722 S0UND245,1 

723 H=0 

730 I F I = 15THEN760 
740 1 = 1 + 1 :GOTO660 
760 FORK=1 T05 

765 F ü R P =1 T05 -Qf C p >="X":NEXT 
770 L$CK>=MID$eFf,CCK>, 1 > 

780 NEXT 

790 IFLfC 1 )=Lf C 2 >flNDLfC 1 >=Lf<3>fl 
NDLf C1 >=Lf C 4 ) fi N D L f C1 > = Lf C 5 )THENW 
= 10 : F 0 R fl =1 T05 ^ SOUND150,2 = NEXT = GO 
T 0850 

800 I FLf C1 )=Lf C 2 >flNDL$C1 >=LfC3>fl 
ND L f C 1>=Lf C4 >THENW = 5 = F0Rfi=1T04: S 
OUND 150,2 = NEXT = GOTO850 
810 I FLf C 1 >=Lf<2>fiNDL$C 1 >=L$C3>T 
HENW=2:F0Rfl=lT03 = SOUND150,2 = NEXT 
: GOT 0850 

820 IFLfC1 >=LfC 2 )THENW=1=SOUND 15 
0,2 ; SOUND 150,2•GOTO850 
830 IFLfC 1>="G"THENY=1 
840 GOT0900 

850 I FLt-C 1 >= "$ "THEHX=5 = GOTO900 
860 IF L $ C1 )="#"THENX=3 : GOTO900 
870 I F L $ C1 >="0"THEHX=3 : GOTO900 
880 IF L $ C1>=" t "THENX=1=GOTO900 
890 X=2 

900 Y=W*X:S=E:*Y=U=U+S 
905 Y=0 14=0 = X=0 
910 1=0 : I FCC 6 X3THEN930 
920 GOTO570 

930 P RIH T G4 54, "QUE CONSERVEZ VO 
US ■■?"} 

9 3 5 S 0 U N D1 0 O, £ : s q (j N D1 10,3 
940 F 0 R P =1 T 05 
950 Qf C p >=INKEYf 
960 IFQf CP >="“THEN350 
965 I FQf C P )= " " THEN985 


967 IFQfC P >>"5 ,, THEN950 

968 IFQf-C P >< " 1 "THEN950 
980 P RI N T G 4 7 4,Q f C P ) j 
982 NEXT 

985 FORfl=450TO477 
987 PRINTGfl, NEXT 

999 B=0 

1000 GOTO570 

1100 CLS = SOUND125,2 = SOUND 110,2 
1200 F OR fl =13 4 T 0153 
1 250 PR I HT 5166, " * " = F'RI N T G1 85, " * " 
1300 PRINTG198,“ JflCK-PO 

T" i = PRINTG217, ■*" 

1 400 F'R I NT5230, " * " : PR INT5249 . 11 1 " 

1500 PRINT5262," *" fl%- 

: PRINT5281,“*" 

1600 PRINT5294,-PRIHT5313,"*» 
1700 PRINT5326, "*“> 11 LfiS VEGfl 

5 !“; ! PRINT5345, 

1800 PRINT5358,. "*" : PRINT5377, "*» 
1900 PRINTGF), "*" 

1950 PRINT5A+256,"*» 

2000 NEXT = SOUND 110,2 = SOUND 125,2 
2100 FORU=1 T04000 :NEXT 
2200 SOUND125,2 = SOUND 110,2 
2250 CLS 

2300 PRINT537, "-t* MULTIPLICATEUR 
S ** " 

2400 PRINT598,"fffff:50 #####:3 

0 00000=30" 

3500 PRINTS130,"ffff : 25 #### • 

15 0000 =15" 

2600 PRINT5162,"fff =10 ### s 

6 000 = 6 " 

2700 PRINTG194,"$f = 5 ## 

3 00 : 3" 

3800 PRINT5290,"+++++=20 55555= 

20 *****= 10 " 

2900 PRINT5322,"++++ =10 5 eee , 
10 **** : 5 » 

3000 PRINT5354,"+++ : 4 5 ee , 

4 *** 2" 

3100 PRINTG386,"++ = 2 55 

2 tt : 2 " 

3300 F0RU=1TO6000 = NEXT 
34 00 SOUND 125,2 = SOUND 100,2 
3500 RETURN 

























L'ATTRAPE 

Un animal dangereux s'est échappé 
du zoo tout proche et terrorise la population. 
Vous êtes chargé de rattraper 
le fauve au plus vite. 



|_ BUT DU JEU _| 

Armé d'une sorte de filet, vous devez at¬ 
traper un animal féroce. Bien sûr,celui-ci 
n’est pas de cet avis et fera tout pour vous' 
échapper. Courez sans relâche et vous 
aurez peut-être la chance de le capturer 
assez rapidement avant qu'il ne tue une 


population innocente. Vous êtes deux 
chasseurs de fauves, lequel réussira le 
premier ? 

• AU CLAVIER | 

- Ce logiciel est conçu pour deux joueurs. 
Les filets se dirigent à partir du clavier. 


Joueur de gauche : * A = haut 

* Q = bas 

* W = gauche 

* X = droite 

joueur de droite : *Ô = haut 

* M = bas 

* . = gauche 
* ; = droite 


1 REM COPYRIGHT TILT MICRO 
10 GOSUBG50 
15 CLS : SOUND 130 j 2 
20 PRINTS235,"VITESSE = ?"i 
30 PRINTG299, "1/2/3/4/5" ; 

35 D$= I NKEY$ 

40 IFD$="1"THENV=150 
50 IFD$=“2"fHEHV=240 
60 I FD$= " 3 "/THENV=330 
70 I FD$= " 4"THENV=420 
80 IF D $ ="5"T H E NV = 510 
85 R=VAL<D*> 

90 IFD$>"5"0RDT<"1"THEH30 
100 R$=CHR$<207> : B$="o" 

105 CLSE 

110 X=224 : Y=255 

1 20 C=RND<410 >+32 = SOUND 100,2 

125 8=8+1 : IFS>5THEH500 

130 IFC/32-INT<C^32>=0THEN120 

140 IFC/31-INTCC/31>=0THEN120 

145 PRIHT0C ,Bti 

150 PRINTGX,fi$+R$; 

160 PRINTeX+32,R$i 
170 PRINTGX+64, R*+fl*i 
190 PRINTGY-1,R$+R $> 

200 PR I HTGY + 32,R$ ; 

210 PRlNTSY+63,R$+R$j 
215 SÜUND240 .• 1 
220 F t- = I N K E Y $ 

230 IFF$="fi"THENX=X-32 : CLSE : IFX< 
0THEHX=X+32 

240 IFF$="®"THENY=Y-32 : CLSE:IFY< 
0THENY=Y+32 

250 IFF$="Q"THENX=X+32 : CLSE:IFX> 
416THEHX=X-32 

260 IFF$="M"THENY=Y+32 : CLSE : IFY> 
415THENY=Y-32 


270 IFFt-="X"THENX=X+l =CLSE= IFX = 4 
15THENX=0 

280 IFF$="W"THENX=X-1= CLSE ; IFX<0 
THENX.=4 1 4 

290 IF F $ ="."THENY=Y-1=CLSE^IFY<1 
THENY=415 

300 IFF$=“ i "THENY=Y+1=CLSE : IFY=3 
10RY=415THENY=384 

320 H=H+ 1 ■■ IFH=VTHENH=0 : CLSE : GOTO 
120 

330 IFF$=""THEN220 

350 IF<C-X >=33RNDCC-Y > = 31THEHFOR 

U=1 T 08 = SOUNDU*20,3 = CLSU = NEXT = 0 = 0 

+ 1=H=0 CLSE = GOTO 120 

360 GOTO145 

500 CLS : S=0 

510 PRI HT 6166,"LR PRRTIE EST FIN 
IE" ; 

520 SOUND 130,2 •• FORU=1TO2000 = NEXT 
530 PRINT6229,"VOTRE SCORE EST D 

E n . 

■ a ■ f 

540 SOUND130,2=FORU=1TO2000•NEXT 
550 PRINTG293,0 ;"y 5 EN VITESSE 
NO"; Ri 

560 SOUND130,2:F0RU=1TO200Ô:NEXT 
570 CLS 

580 PRINTS230,"UNE AUTRE PRRTIE 

*> Il . 

! f 

585 SOUND130,2 
590 D $■ = I N K E Y $ 

600 I FD$= "N " THENCLS '■ END 

610 IFD$><""THEH15 

620 G0T0598 

650 CLS: SOUND 130,2 

660 PRINT632,"CHOISISSEZ VOTRE C 

OULEUR DE FOND"; 

670 PR INTS 138, "NOIR -> 0" 
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680 PRINT®170,"VERT -> 1"; 


840 F’RINTGF+64, i 

630 PRINTG202,"JRUNE -> 2"; 


850 NEXT 

700 PRINT6234, "BLEU -> 3".: 


860 PR I NT® 1 04 , " t L'flTTRflF'E *" 

7lu PRINT6266,"ROUGE -> 4"; 


: 

720 PRINT®298,"CYflN -> 6"; 


870 PRI NT @263, “( R 5 A <®> 

730 PRINTG330,"MfiGENTfl -> ?"i 


* 

740 PRINTG362,"ORANGE. -> 8"; 


880 PRINT0198,"TOUCHES DE DEPLAC 

750 F0RD=426T0438 


EMEUT" s 

760 PRINTGD, = NEXT 


830 PRI NT@295,"<Q 5 V < M 5 

770 DÎ-= I NKEY$ 


Il . 

/ 

780 IFD$>"S"0RD$<"0"THEN660 


900 PR I NT @327, "< W5 <- (.5 

790 IFD$= " 5 " THEN660 


Il . 

J 

800 E=VFlL< D$ 5 


91 0 PR INT6359 , " <X 5 -> (j ) 

810 CLS ^ SOUND130,2 


Il . 

9 

820 FQRF=72T087 


920 F0RU=1TO3000 = NEXT 

830 PRINTGF, .; 


930 RETURN 

REFLEXES 


Avant d'aborder les jeux d'action complexes, 
exercez votre habilité 

en détruisant une population d'envahisseurs 
toujours plus nombreuse. 



BUT DU JEU 


Vous devez détruire des envahisseurs se 
multipliant très rapidement à l’écran. 
Pour cela, vous disposez d’un canon laser. 
Déplacez-vous de droite à gauche pour les 


anéantir avant qu'ils ne soient devenus 
trop nombreux et ne prennent inévitable¬ 
ment le dessus. 


AU CLAVIER 


Pour déplacer votre carton laser et tirer, . 


util iser les touches suivant es : 

* W = 2 cases à gauche 

“ X = 1 case à gauche 

* . = 2 cases à droite 
’ ; = 1 case à droite 

* Space = tir 


1 REM COPYRIGHT TILT MICRO 

5 CLS : G0SUB999 : CLS 

10 E = 30 :V=3:G = 300 : 0=0 = Y=0 

15 SOUND 1 30.1 2 

20 PRINTG235,"PRETS ?" 

30 D$=INKEYf 

40 IFD$<>""THEN60 

50 GOTO20 

60 CLS0 

65* FOR J =1 T03 

?0 fi< J5=RWD< 12 5 + 5 

?5 IFFKJ 5/2-1 HT ( fi<J 5/25>0THEN?0 

80 EK J 5=RND< 60 5 

85 I F EK J 5/2- I NT< EK J 5/2 5 >0THEN80 
90 S OU ND EK J 5*3,2 
100 NEXT 

1 05 F0RU = 1 T063STEP2 = SET< U .. 23,85 = 
SET< U,25,8 5 = NEXT 
110 F ORJ=1T03 
120 CK J 5=RND< 4 5 

130 I F CK J ) = 1 fl H D H < -J 5 > 3 T H E N FK J 5=FK 


J 5-2» S—2 

140 I FC( J 5=2flNDR< J K23THENFK J 5=fl 
<J5+2=S=2 

150 IF CK J 5=3RNDB< J 5 53THENEK J 5=B< 
J 5-2 : S=-2 

160 IF CK J 5 = 4 fl N D EK J 5<59THENB< J 5=B 
<J5+2=S=2 
170 N E X T 

172 G=G-1=IFG=-1THEN900 
174 PRINTG0," TEMPS « " ;G 
176 PRI NT®15," SCORE * " ; 0 
ISO F $ =I N K E Y $ 

130 IFF$="W"RNDE >4THEHE = E-4 = V=-4 

200 IF F $ ="X"fl N D E > 3 T H E H E = E-2 : V = -2 

210 IF F $ =";" fl N D E < 5 9 T H E H E = E + 4 = V = 4 

220 IFF$="."fl NDE < 61 T H E N E = E + 2 : V=2 

230 IFF$=" "T H E N 415 

340 SET< B< 1 5, FK 1 5,4 5 = IFFK 1 5522TH 

ENGOSUB600 

350 SETCEK 2 5, FK 2 5, 5 5 = IFFK 2 5 522TH 
ENGOSUB600 
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360 SET(E(3)jfl(3)i 1 >= IFRC3>>22TH 

ENGOSUB600 

380 SETC E,31j3 > 

330 RESETCE-V,31> 

400 G O T 0110 
415 SOUHD200 .■ 2 
420 F0RP=29T02STEP-1 
42? IFPOINTCE,P-l>>0THEHSOUND100 
, 1 = 0 = 0+1 
430 SETCE,P,2> 

440 NEXT 

450 F0RP=30T02STEP-1 
460 RESETC E .. P > 

470 H E X T 
500 GOTO110 

600 I FRC1)=24THEHFÛRH=1T03=SOUND 

130, 1 : NEXT : K=4 : C=1=GOTO630 

610 I F H C2>=24THENF0RH=1T03« SOUND 

130,1 * N E X T = K=5 = 0 = 2 = GOTO630 

620 IFRC3)=24THENF0RH=1T03 : SOUND 

130,1 *NEXT : K=1 : 0 = 3 = GOTO630 

625 RETURN 

630 T = RHDC 4 ) 

640 IFE >BC 0 >RNDT>1THENN = 62 : L = 2 : F 

ORX=BC 0 T 0 N S T E P 2 : GOTO630 

650 I F E > B C0)RNDT = 1THENN=E«L = 2 : F 0 

RX = BCC )T0 NSTEP2 : GOTO690 

660 IFE<BCC)RNDT>1THENN=1 : L=-2<F 

ORX = BCC >T0NSTEP-2 = GOTO690 

670 IFECBC C >RNDT=1THENN=E : L=-2 : F 

ÜRX = BC0 >T0HSTEP-2 

690 IFX>2THENRESETCX-L,24> 

635 I F X > 6 3 T H E N X = 6 2 
638 FORR=1T02 
700 SETC X,24,K > 

705 IFX< 50RX >60THENRESETC X,24 ) 
710 FÎ-= I NKEY$ 

720 I F F $ =" "THEN750 

722 NEXT 

725 NEXT : X=X-L 

740 IFT=1RNDX=ETHENF0RM=24T031 ; S 
ETC N,M,K > = NEXT = FÛRH=1T05« SOUND30 
, 1 : NEXT •• Y = Y + 1 = F0RH = 24T031 = RESETC 
H,M> « NEXT = GOSUB900 = RETURN 
745 RETURN 

750 F0RM=31T024STEP-1 
760 SETC E,M,2 > 

770 I F P 01 N T C E,M-1> >0THENFORH=1TO 


5=SOUNDH*40,1=NEXT=0=0+50=F0RM=2 

4T031=RESETC E,M > : NEXT = RETURN 

780 NEXT 

790 F0RM=24T031 

800 RESET < E,M) 

805 NEXT 
80? NEXT 
810 RETURN 

900 I FY >40P.G = -1THENOLSO : SOUND 150 
,3•GOT 0920 
910 RETURN 

920 PRINTG0," TEMPS =" ;G+1 

930 PRINTG15," SCORE ="; 0 

940 PRINT8224," C IN" 

950 F0RU=1T03000 : NEXT 

960 PRINTG416," UNE RUTRE PR 

RT IE « ?" 

970 D*=INKEY$ 

980 1FD$="N"THENCLS = END 

930 IFD$=" "THENPRINTG416," "-GO 

TO 1 0 

995 GOTO970 

999 CLS : SOUND 130,2 

1000 FORR=135T0152 
1010 PRINTGR, 

1020 PRIHT0R+192, 

1030 NEXT 

1040 R=167 : B=184 
1060 FORC=1T05 

1070 PRINTGR, i : PRIN T G B ,"*"> 
1080 R=R+32 : B=B+32 
1090 NEXT 

1095 REM PRESENTATION DU JEU 
1120 PR INTG235,"REFLEXES"; 

1130 F0RU=1TO4000 : NEXT 
1140 CLS 

1150 PRINTG133,"TOUCHES DE DEPLR 
CEMEI+TS"; 

1160 PRINTG198,"CW) = CX) « C.> 

: (. i y' i 

1170 P RIH T G 2 3 0,"< = « <- : -> 

= > " ; 

1180 PRINTG297,"TOUCHE DE TIR"; 
1130 PRINTG332,"SPRCE"; 

1195 SOUND150,2 

1200 FORU=1T04000 : NEXT 

1210 RETURN 

2000 FORU=1TO1000 :NEXT 
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APPLE II ET II e 


KAMIKAZE 


Vous connaissez les avions Kamikazes, 
et bien voici les hélicoptères Kamikazes. Un de ces engins,très maniable, 

menace votre refuge. 



_ BUT DU JEU 

Un hélicoptère est près à tout pour vous 
détruire. Réfugié dans le fin fond d'une 
forêt vous vous préparez à faire face à ses 
assauts. Vous ne disposez que d'un ca¬ 


non très puissant, dont vous indiquez 
l'angle de tir. Si vous réussissez à attein¬ 
dre l'un des hélicoptères, un autre vien¬ 
dra prendre la relève. Jusqu'au moment 
ou l'un d eux sera au-dessus de votre ca- 


bane et vous bombardera. _ 

_ AU CLAVIER _ 

Pour tirer avec votre canon, il suffit d'indi 
quer l'angle de tir, entre 0 et 90. 


100 

REn 

COPYRIGHT C C 3 1984 

1 10 

REH 

TILT niCRO 

115 

REM 


120 

TEXT 

: HOHE 

130 

DATA 

2,0,6,0,38,0,44,40 

140 

DATA 

,45 

245,9,46,36,228,219,27 

150 

DATA 

47 

45,45,45,45,45,86,14,2 

160 

DATA 

3 

63,63,39,22,94,73,59,6 

170 

DATA 

33,231,45,28,4,0,36,36 

180 

DATA 

4 

13,24,45,45,45,45,45, 1 

190 

DATA 

,54 

54,54,223,219,35,36,63 

200 

DATA 

38,0,255,255,255,255,2 


55,255 

210 

FOR I 

= 16384 TO 16384 + 58 

220 

READ 

A: POKE I, A 

230 

NEXT 

I 

240 

POKE 

232,0: POKE 233,64 

250 

HGR : 

1 

HPLOT 

HCOLOR= 3: ROT= 0: SCALE= 

260 

0,155 TO 279,155: DRAW ’ 


2 AT 

2, 154 

270 

I = ,314:U0 = 53:XH = 300 

280 

IF T 

< > 0 THEN HCOLOR= 0: 


DRAW 

1 AT XH,YH: HPLOT XA,Y 


A: HCOLOR= 3 

290 

YH = 

RND Cl 3 * 110 + CXH / 1 


03 :XH 

= XH - 50 


300 IF XH = 50 THEN 530 
310 DRAW 1 FlT XH, YH 
320 T. = 0 : UTAB 21 J HTAB 25: PRINT 
"SCORE : "JS: UTAB 23: INPUT 
"ENTREZ L’ANGLE DE TIR ? *' ;A 
IF A* = "" THEN 340 
330 HD = UAL C LEFT* CA*,H J * 1 
0 + UAL C RIGHT* CA*,113 
340 A = CAD / 1803 * 3, 1415 
350 XA = X:YA = Y 
360 X -• U0 * T * COS C A3 + 14 
370 Y = - CU0 * T * SIN CA3 - C 
a.9 * CT * T33 - 1493 
380 T = T + I 

390 IF CY > 155 AND T > 13 OR X > 
278 THEN 280 
400 HPLOT X,Y 
410 IF T = I THEN 350 
420 HCOLQR= 0: HPLOT XA,YA= HCOLOR= 
3 

430 IF ABS CX - XH3 < 10 AND ABS 
CY - YH3 < 10 THEN 450 
440 GOTO 350 
450 HCOLOR= 0 
460 HPLOT X,Y 

470 FOR K = 1 TO 50: HPLOT XH + 

C RND C13 * 103,YH + C RND C 
13 * 10 - 83 : NEXT K 
480 S = S + XH 

490 DRAW 1 AT XH,YH= ROT= 48: FOR 
K = YH TO 160: DRAW 1 AT XH, 

K - 1 : HCOLOR= 3: DRAW 1 AT 
XH,K : HCOLOR= 0: NEXT K 
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570 

• NEXT TT 

NEXT K 


580 

HCOLQR= 3 


590 

XDRAW 2 AT 2,154 


600 

HONE 


610 

UTAB 22: INUERSE 

: PRINT "SC 


ORE FINAL : ";S 

NORMAL : GET 

620 

A$ 

TEXT : HOnE 

■ 


500 

XDRAW 1 AT XH,160 


.510 

HCQLOR= 3: ROT= 0 


520 

XH = 300: GOTO 290 


530 

HCOLOR= 0’- DRAW 1 

AT XHj YH: 


HCOLOR= 3: DRAW 1 

AT 3 3 YH 

540 

FOR K = YH TO 155 : 
: HC0L0R= 0 

HPLOT 7,K 

550 

HPLOT 7, K - 1: HC0L0R-- 3 

560 

FOR TT = 1 TO CK - 

1553 Y 10 


**»«»■ ALCOOLTEST 

«Un verre oui, trois verres bonjour les dégâts !» 
Après un bon repas avec des amis, 
il faut maintenant rentrer chez vous. 



BUT DU JEU 


Pour conduire, il faut d'excellents ré¬ 
flexes, Dans ce jeu,l'ordinateur vous pro¬ 
pose trois types de tests. Le premier est 
basé sur la rapidité simple, il faut presser 


la barre espace après un bip sonore. Le se¬ 
cond testera votre aptitude à distinguer la 
gauche de la droite. Le troisième, sans 
aucun doute le plus difficile, vous de¬ 
mande de taper le plus rapidement possi¬ 
ble les lettres apparues à l'écran. Bien sûr 


dans chaque test votre temps est compté, 
alors faites vite. 


AU CLAVIER 


Pour utiliser ce logiciel, il suffit de suivre 
les indications données par l'ordinateur. 


100 REM COPYRIGHT CC3 1984 


260 PRINT : PRINT " - LE ’BIL 

110 REM TILT MICRO 


ATERAL’ 

120 REM 


270 PRINT : PRINT " - LE COM 

130 REM TEST DE REFLEXES 


PLEXE" 

140 REM 


280 PRINT : PRINT " DONT 5 

150 REM 


TESTS DE CHAQUE TYPE" 

160 TEXT 


290 GOSUB 1170 

170 HOME 


300 HOME 

180 REM ECRITURE DU CHRONO. 


310 PRINT "LE 'SIMPLE’" 

190 DATA 169,0,133)6,133,7)169, 


320 PRINT : PRINT : PRINT "AU ’B 

17,32,168,252,230,6,208,4,23 


EEP’ APPUYEZ LE PLUS RAPIDEM 

0 


ENT" 

200 DATA 7,240,14,44,0,192,16,2 


330 PRINT ■: PRINT "POSSIBLE SUR 

38,173,0,192,133,8,44,16,192 


LA TOUCHE 'ESPACE ’ 



340 GOSUB 1170 

210 DATA 96,169,7,133,8,96,0,0, 


350 FOR I = 1 TO 5 

0,0,0,0,0,0,0,0 


360 HOME 

220 FOR I = 768 TO 815: READ A: POKE 


370 F = 0 

I,A : NEXT I 


380 PRINT "ATTENTION TEST N 

230 PRINT "TEST DE REFLEXES 


#1 ESSAI Ntt" ; I 

240 PRINT : PRINT : PRINT " 3 


390 FOR T = 1 TO RND Cil * 1000 

TYPES DE TEST " 


+ 200: IF PEEK C - 163841 > 

250 PRINT : PRINT " - LE ’SIM 


127 THEN PRINT "SEULEMENT A 

PLE’ 


U BEEP": POKE - 16368,0:F = 
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F + 2: NEXT T 
400 NEXT T 

410 UTAB 12: HTAB 18: PRINT "BE" 
î CHR$ C73 5"EP" : CALL 268 
420 IF PEEK C83 < > 160 THEN PRINT 

"SEULEMENT SUR LA TOUCHE ’ES 
PACE " :F = F + 1 

430 TT = C PEEK C63 + PEEK C73 * 

2561 / 1000 

440 IF PEEK C81 = 2 THEN PRINT 
"DELAI DEPASSE":TT = 60 
450 UTAB 21: PRINT "TËfiPS : ";TT 
î" SEC. PENALITE : + " ; CF * 

TT1 


460 

T1CI3 

= TT + CF X TT3 

470 

GOSUB 

1170 

480 

NEXT 

I 

490 

HOME 


500 

F = 0 


510 

PRINT 

"LE 'BILATERAL’" 

520 

PRINT 

: PRINT "ATTENDRE L’AP 


PAR I TI ON DU MOT ’DROITE " 

530 

PRINT 

"OU ’GAUCHE’ ET APPUYE 


Z SUR 

LA TOUCHE 

540 

PRINT 

: PRINT " - ’A’ POUR 


GAUCHE" 

550 

PRINT 

: PRINT " - ’L’ POUR 


DROITE" 

560 

GOSUB 

1170 

570 

FOR I 

= 1 TO 5 

580 

F = 0 


590 

HOME 


600 

PRINT 

"ATTENTION TEST N 


#2 

ESSAI N#"il 

610 

FOR T 

= 1 TO RND C13 X 1000 


+ 200: IF PEEK C - 163843 > 
127 THEN PRINT "SEULEMENT A 
U BEEP": POKE - 16368,0:F = 

F + 2: NEXT T 

620 NEXT T 

630 IF RND Cil > = .5 THEN P$ = 

"DROITE" :C$ = "L": GOTO 650 

640 P$ = "GAUCHE":C$ = "A" 

650 UTAB C RND Cil X 15 + 33: HÎAB 
C RND C13 * 323 : PRINT CHR$ 
c73;p$ : CALL 768 

660 IF PEEK C83 < > 193 AND PEEK 

F83 < > 204 THEN PRINT "’A 

•’ OU ’L’ SEULEMENT" :F = F + 

1 

670 IF PEEK C83 = 193 AND C$ = 

"L" THEN PRINT "INUERSION": 

F = F + 3 

680 IF PEEK C83 = 204 AND C$ = 


"À" THEN PRINT "INUERSION": 

F = F + 3 

690 TT = C PEEK C63 + PEEK C73 X 
2563 / 1000 ^ 

700 IF PEEK C83 = 7 THEN PRINT 
"DELAI DEPASSE" :TT = 60 
710 ,UTAB 21: PRINT "TEMPS : "jTT 
>" SEC. PENALITE : +"jCF X 
TT3 

720 T2CI3 = TT t (F X TT3 
730 GOSUB 1170 
740 NEXT I 
750 HOME 

760 PRINT "LE ’COMPLEXE’ 

770 PRINT : PRINT "UN MOT FORME 
DE 6 LETTRES UA S’AFFICHER" 
780 PRINT "A L’ECRAN IL FAUT LE 
TAPER LE PLUS UITE" 

790 PRINT "POSSIBLE SUR LE CLAUI 
ER SANS SE TROMPER" 

800 GOSUB 1170 
810 F = 0 

820 FOR I = ] TO 5 
830 HOME 
840 P$ = "" 

850 PRINT "ATTENTION TEST N 

«3 ESSAI N#"JI 
860 FOR T = 1 TO RND C13 X 1000 
+ 200:. IF PEEK C - 163843 > 
127 THEN PRINT "SEULEMENT A 
U BEEP": POKE - 16368,0:F = 

F + 2: NEXT T 
870 NEXT T 
880 FOR J = 1 TO 6 
890 C$CJ 3 = CHR$ C RND Cl 3 X 26 + 
1933 :P$ = P$ + C$[J 3 
900 NEXT J 

910 UTAB C RND C13 X 15 + 33: HT AB 
C RND C13 X 323 : PRINT CHR$ 
C73 JP$ 

920 UTAB 18: HTAB 18 

930 FOR J = 1 TO 6: CALL 768:CR$ 

CJ3 = CHR$ C PEEK C83 3 : PRINT 
CR$CJ 3 J :TTCJ 3 = C PEEK C63 + 
PEEK C73 X 256 + 1003 : NEXT 
J 

940 UTAB 21: GOSUB 1170 
950 HOME 
960 T = 0:P = 0 
970 FOR J = 1 TO 6 
980 PCJ 3 = 0 

990 IF C$CJ 3 < > CR$CJ3 THEN PC 

J 3 = TTCJ 3 X 1.5:F = F + 1.5 

























1000 IF CR$CJD = CHR$ C7D THEN 


: PRINT "TEST 3": PRINT 

PCJ 3 = TTCJ 3 * 5:F = F +5 


1100 FOR I = 1 TO 5 

1010 PRINT C$CJD;CR$CJ3> 


1110 print "Ess. ” ; I ; " ; T icID ; 

" ;TTCJ3 / 1000;" SEC.";: HT AB 


• HTAB 20: PRINT T2CID J HTAB 

18: PRINT "PENALITE : " ;PCJ 3 


31 : PRINT T3CID :M1 = ni + Tl 

/ 1000;" sec. “ 


CID:N2 = n2 + T2CID :N3 = H3 + 

1020 T = T + TTC J 3 


T3CI D 

1030 NEXT J 


1120 NEXT I 

1040 PRINT : PRINT "TOTAL : "îT ✓ 


1130 PRINT : PRINT : PRINT "NOYE 

1000 5" SEC. PENALITE : ”î C T * 


NNES : " 

F3 ✓ 1000;" SEC.": PRINT 


1140 PRINT : HTAB 9: PRINT NI / 

1050 T3CI3 = CT + CT * FDD / 1000 


5;: HTAB 20: PRINT H2 / 5;: HTAB 



31 : PRINT. H3 ✓ 5 

1060 GOSUB 1170 


1150 GOSUB 1170 

1070 NEXT I 


1160 HOriE : END 

1080 HOriE : HTAB 12: PRINT "RESU 


1170 PRINT : PRINT : PRINT "APPU 

LTATS EN SEC.": PRINT : PRINT' 


YEZ SUR UNE TOUCHE POUR CONT 

1090 HTAB 9: PRINT "TEST 1"J' HTAB 


INUER ";: GET A$: RETURN 

20: PRINT "TEST 2"; : HTAB 31 


■ 


ALUNISSAGE 

Les missions Terre-Lune sont devenues 
d'une grande routine. 

Mais depuis quelques jours, l'attraction lunaire a changé 
et plus personne ne peut alunir. 



_ BUT DU JEU _ 

Aux commandes d'un LEM, vous devez 
essayer de vous poser sur la base APPLE. 
Dosez avec exactitude les réacteurs pour 


ne pas v ous écraser au sol. _ 

AU CLAVIER 1 

Dans ce logiciel, vous pourrez constituer 

la surface lunaire, si vous le désirez. Il faut 


utiliser deux paddles pour diriger la direc¬ 
tion du déplacement haut, bas, gauche et 
droite. Si vous ne possédez pas de padd¬ 
les, vous devrez remplacer ces com¬ 
mandes par une saisie au clavier. 


1 REM COPYRIGHT CCD 1984 

2 REH TILT niCRO 

3 RED 

4 REH ALUNISSAGE 

5 TEXT : HOflE : GOTO 260 

10 DATA 154,153,152,151,151,151 
,151,151,151,151,151,151,151 
,152,153,154 

20 DATA 153,152,153,152,153,152 
,153,152,151,150,149,148,149 
,148,149,148 

30 DATA 147,146,145,144,143,142 
,141,140,139,138,137,136,135 
,136,135,136 


40 

DATA 

135, 

134, 

135, 

136, 

137, 

138 


,139, 

140, 

141, 

140, 

139, 

140, 

139 


, 140, 

1-39, 

138 





50 

DHTA 

139, 

138, 

137, 

136, 

135, 

134 


, 133, 

132, 

131, 

130, 

129, 

128, 

127 


, 126, 

125, 

126 





60 

DATA 

127, 

128, 

129, 

130, 

131, 

132 


, 133, 

134, 

133, 

132, 

133, 

132, 

133 


, 134, 

134, 

134 





70 

DATA 

134, 

134, 

134, 

133, 

132, 

131 


, 130, 

129, 

128, 

127, 

126, 

125, 

124 


, 124, 

124, 

124 





80 

DATA 

124, 

124, 

124, 

124, 

124, 

124 


, 124, 

124, 

124, 

124, 

124, 

124, 

124 
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90 


100 


110 


120 


130 


140 


.150 


160 


170 

180 

190 

200 

210 

220 

230 

240 

250 

255 

260 

270 


,124, 1 
DATA 1 
: 123,1 
.126,1 
DATA 
2, 132, 
2,132, 
DATA 
5,136, 
0,141, 
DATA 
3j144, 
0,151, 
DATA 

7.148, 

8.148, 
DATA 
7,146, 
0,139, 
DATA 

1,130, 
2,133, 
DATA 
1,132, 

8,137, 
FOR I 


25,126 
27, 128, 127, 1 
22 , 121 , 122 , 1 
27,128 

129.130.131, 

132.132.132, 
132,133 

134.135.136, 

135.136.137, 
140,141 

140,141,140, 

145.146.147, 
150,149 

148.147.148, 
147, 148, 148, 
148,148 

148.148.148, 
145,144,143, 
138,137 

136.135.134, 
129,128,129, 
132,131 

132,131,132, 

133.134.135, 
136 

“ 16384 TO 1 


26,125, 124 
23, 124, 125 

132,132, 13 
132,132, 13 

137.136.13 

138.139.14 

141.142.14 

148.149.15 

147.148.14 

148.148.14 

148.148.14 

142.141.14 

133,132, 13 
130,131,13 


131.130.13 

136.137.13 


6384 + 254 


READ A: POKE I,A 
NEXT I 

DATA 1,0,4,0,111,28,220,45, 
4 5, 36 

DATA 16,63,63,246,186,23,77 
,73,73,97 

DATA 27,28,16,12,24,8,88,21 
9,27,79 

DATA 101,228,63,30,38,0,255 
,255,255,255 

FOR I = 16640 TO 16679: READ 

A= POKE I, A : NEXT I 

POKE 232,0: POKE 233,65 

RETURN 

HOME 

PRINT "U0ULE2 UOUS CREER UOT 


RE PROPRE TERRAIN" 

275 GOSUB 10 

280 PRINT : INPUT "O/N ";R$ 
290 IF R$ = "O" THEN 310 
300 GOTO 500 
310 PRINT : PRINT " 

ER'UERS LE HAUT 
320 PRINT : PRINT " 

ER TOUT DROIT" 

330 PRINT : PRINT " 

CENDRE" 

335 PRINT : PRINT " 

ACER, RECOflENCER" 

340 PRINT : PRINT "PRET 
R$ 

350 HGR : HCOLOR= 3: SCALE= 1: 

0: DRAW 1 AT 139,79 
360 HPLOT 0,159 TO 254,159 
370 Y = 155 
380 FOR I = 0 JO 254 


5 I J POUR ALL 
’K ’ POUR ALL 
TV POUR DES 


POUR EFF 


GET 


ROT 


390 

400 

410 

420 

430 

440 

450 

460 


GET R$ 
IF R$ = 


’B" THEN 350 


IF R$ = "I» then T = Y - 


IF R$ = "fl" THEN Y = Y + 1 
1F Y > 159 THEN Y = 159 
HPLOT I,Y : POKE I + 16384,Y 
NEXT I 

PRINT CHR$ (71: 

68 , 0 

500 REfl 

510 HGR : HCOLOR= 3: 

1 

520 FOR X = 0 TO 254 
CX + 163841 

530 IF X / 2 < > INT CX / 21 THEf- 

NEXT X 

540 Y = RND Cil * 150 

550 IF Y > PEEK 116384 + XI THEN 
540 

560 HPLOT X,Y 
570 NEXT X 

CU * 234 + 10: Y = 1 


POKE - 163 

ROT= 0: SCALE= 
HPLOT X, PEEK 


RND 


DRAW 1 AT X,Y 


+ .5 


580 X = 

0 

585 YI = 1 
590 HCOLOR= 

595 XA = X : YA = Y 

600 Y = T + YI : YI = TI 

605 X = X + XI 

606 IF X < 10 THEN X = 10 

607 IF X > 244 THEN X = 244 

608 IF Y < 10 THEN Y = 10 
610 C = PEEK C - 163841 

620 IF C = 193 THEN YI = Y1 - 
5 


1. 





































630 

IF C = 218 THEN 

YI = Y1 + 1 

640 

IF C = 136 THEN 

XI = XI - 1 

650 

IF C = 149 THEN 

XI = XI + 1 

660 

POKE - 16368,0 


670 

IF Y > PEEK CX 

+ 16384D THEN 


800 

. 

700 

HCOLOR= 0 : DRAW 

1 AT XA,YA 


710 

800 


810 


GOTO 590 

1F PEEK C16384 + X - 31 = PEEK 
f. 16384 + X + 31 AND TI < 3 AND 
XI < 1 THEN UTAB 22: PRINT 
!, BRAUO": END 

UTAB 22: FLASH : PRINT "SCRA 
TCH": NORMAL : END . 



STOCK CAR 


Vous venez de faire l'acquisition d'un bolide. 

La première course de stock car française aura lieu dans quelques semaines, 
il faut dès maintenant vous entraîner avec acharnement. 



BUT DU JEU 


Dans un circuit assez limité, déplacez vo¬ 
tre automobile, de plus en plus vite. En 
approchant des trois cents kilomètres 
heures, la voiture devient pratiquement 


incontrôlable Après deux tours d'essai, 
vous devez tenter un tour complet à 300 
Km/h. 


AU CLAVIER 


Ce logiciel nécessite l'utilisation de deux 


paddles. l'un pour la direction de la voiture 
représentée par un point et l'autre pour ré¬ 
gler la vitesse. Si vous ne possédez pas de 
paddles, remplacez leur gestion par une 
saisie au clavier. 


1 HOME 


5 X 

= 10 :Y = 10 :G = 139:H = 

50 

10 

HGR 


20 

HPLOT 0,0 TO 279,0 


30 

HPLOT TO 279,159 


40 

HPLOT TO 179,159 


50 

HPLOT TO 179,100 


60 

HPLOT TO 100,100 


70 

HPLOT TO 100,159 


80 

HPLOT TO 0,159 


90 

HPLOT TO 0,0 


100 

HPLOT 20,20 TO 259,20 


110 

HPLOT TO 259,139 


120 

HPLOT TO 199,139 


130 

HPLOT TO 199,79 


140 

HPLOT TO 80,79 


150 

HPLOT TO 80,139 


160 

HPLOT TO 20,139 


170 

HPLOT TO 20,20 


180 

FOR I = 1 TO 7 


182 

READ T: READ N 


185 

UTAB 21 : HTAB T= PRINT 

N 

187 

NEXT I 


190 

DATA 1,0,7,50,14,100, 

20,150 


,26,200,32,250,38,300 


200 

D = PDL C0D X .024639942 

210 

A = PDL C1D X .039215686 


215 HC0LDR= 0: HPLOT X,Y: HC0L0R= 
3 

220 X = X + SIN CDD X A 

225 Q = Q + .25 

226 K = K + A 

230 Y = Y + COS CDD X A 
232 UTAB C22D : PRINT " 


233 UTAB C22D: PRINT TABC INT 
CCA X 4 D + 1 D D 5"S" 

235 ONERR GOTO 255 

236 HC0L0R= 0: HPLOT 139,50 TO G 
,H : HC0LGR= 3 

237 G = C SIN CDD X 10D + 139:H - 

C COS CDD X 10D + 50: HPLOT 
139,50 TO G,H 
240 HPLOT X,Y 

245 HPLOT 136,50: HPLOT 142,50 
250 GOTO 200 
255 HOME 

260 UTAB 22: HTAB 18: PRINT "BIN 
G !" 

270 PRINT "TEMPS= " ;Q, : PRINT "D 
i ISTANCE= ";K 
280 END 


61 

















v 702 EN PÉRIL 

ous -«cannes passer,ue'ques jours 

lorsque tout''Sp^nmpo^;^ s^rTem 0 L?" 8 enComb,e - 

P !üri S ° nn6 n ' eSt 6n m e»ùre d q e U p1to 9 ter t0mbe ma ' ade ' 


BUT DU JEU 

^ s , awir P ris . 'es commandes du jet 

e v V l ma, f nant vous Poser et 
maint ? Précieuse cargaison hu- 

ri^f Info, ■ souven, rs de pilotage datent 
du lointain service militaire. En plus de 



afin wf* 1° 9 ratte ‘ c ' e| . et votre vitesse 
afm d éviter de vous crasher à l attérris 


AU CLAVIER 


100 

110 

120 

130 


REn COPYRIGHT CC3 1 984 

REf1 TILT niCRO 
REn 

FOR I = 16384 T0 16400 : T = T 

+ PEEK C13 : NEXT J : JF T = 
638 THEN 280 

140 DftTfi 2,0, 6 j 0,72,0j 54)54j 54j 

n«Tf 4 ’ 54 ’ 54 ’ 45 ’ 45 ’ 45 ’ 45 ’ 45 

* 45 -45,36,36,36,36,36,3 

6,36,63,63,63,63,63,63,55, 14 

160 Tu ,’ 4 ’ 14 ’ I4 '> 4 ’14,.14,14,1 
» 4,14, 12,24,8,24,8,24,8,24 

178 TL 8 ’ 24 ’ 8 ’ 2 ^6,30,30,30, 
30, 30, 1 58, 243, 30, 30, 30, 30,4, 

180 go T po “ J -’ 23 > 62 >23,54,62,63, 

54 5 54 j23 ’ 1!8545,45 ’' ?5 ’ 53 >64, 

190 DATA 54,63,23,118,45,45,38, 

^45, 83, 32, 28, 63, 36, 36, 36,3 

200 DATA 45,45,45,93,32,28,63,6 
3,63,39,36,28,151,146,54,182 
,146,146 

210 DATA 54,54,6,0,79,57,32,106 ' 
,25,344,240,169,16,176,238,7 
2,160,1 

220 DATA 127,60,106,104,144,8,1 
0»32,92,31,78, 120,4,96, 133,4 
6,32,327 


Vous voyez votre avion se déplacer à Té 
touche A et réduite par la touche Z* 


230 


240 


250 


260 


270 


280 

290 


300 


DATA 31,185, 120,4,36,53,48, 
3,185,248,4,141,120,4,165,46 

,36,53 

OfiTfl 48,5,153,248,4,J6,3,15 
4 1 , 4 0 ’ 4 ’ ?6 ’ 30 ' 27 ■ 138 ’74,74,7 

D ?Ie I68 ’ 36 <72,160,2, 17 ?,72 

’îfi U 0 ^ 53 ’ 32 ’ 127 ' 35 ' 104 ' 18 

? 36,53, 48 

° 0 T d Q !’ 153 > 2 ^,4, 16,3, 153,1 
^0,4,96,169,128, 141,120,4,36 

3,0,0 

FOR I = 16384 TO 16617: READ 
OKE 1,A : NEXT : PQKE 232 
’ 0; POKE 233,64 
TEXT : HOHE : NORHAL : PRi NT 


HGR 
0 

UTAB 21 


HC0L0R= 3: SCALE= J: R 0T =| 

DIST 


HTAB 1 : PRJNT 
ALT. 

OIT. " 

310 JNUERSE 

320 D = int c rnd C 13 * * 800 + 

9:1 :R = INT C RND Cil Y D 
300j:u = int C RND Cl J * 
+ D / 2J + 300J 
330 N* = 3 

340 FOR 1=1 to n^ 

350 X-niJ = rnd C1J * 

U " 11) + 153 
360 T*CI3 = RND Cl 3 * 


19 

+ 

CA 


83 + C C 83 X 


150 + ]0 


32 
























































370 C*C 13 = 3 

380 DRAW 1 AT X*C I 3 , Y*C13 
390 NEXT I 
400 DRAW 2 AT 140,80 
410 DP = 3 

420 J = INT CJ + CU / 5033:KB = 

PEEK C - 163843 

430 IF KB = 149 THEN U = U + 15 : 

GOTO 470 

440 IF KB = 136 THEN U = U - 15: 

GOTO 470 

450 IF KB = 193 THEN A = A + 10 

460 IF KB = 218 THEN A = A - 10 

470 A = INT CA + CCU - 5003 ✓ 50 

33: POKE - 16368,0 
480 U = INT CU - CC PDL Cl 3 - 12 
83 / 5033 

490 FOR I J TO N* 

500 IF Y A - CI 3 > 170 THEN HCOLOR= . 

0: DRAW 1 AT X*CI3,Y*CI3 :Y*C 
13 = 10!X*CI3 = RND Cl 3 * 2 
00 + 15: IF CCD - J 3 / CU / 

503 3 < 50 THEN C*C 13 = 0 
510 Y*C 13 = Y*CI3 + DP 
520 HCOLOR= 0: DRAW 1 AT X*CI3,Y 

.*■ C13 - DP: HCOLOR= OCI3= DRAW 
1 AT X*CI3,Y*CI3: HCOLOR= 3: 

DRAW 2 AT 140,80 
530 NEXT I 

540 UTAB 22: HTAB l: PRINT " 

"1 : HTAB 1 : PRINT D - J 5 ' HTAB 
.19: PRINT " " î : HTAB 19: PRIN 

A j : HTAB 36 : PRINT " J : HTAB 

36: PRINT U J 

550 IF A < =10 THEN TEXT : HONE 

: UTAB 12: FLASH : PRINT "AL 
TITUDE TROP BASSE SS": GOTO 
720 


560 IF A > 3000 THEN TEXT : HONE 

: UTAB 12: HTAB 10: FLASH : PRINT 
"TROP HAUT SS PLUS D’OXYGENE 
SS" : GOTO 720 

570 IF U < 50 THEN TEXT : HONE 
' UTAB 12: FLASH : PRINT "UI 
TESSE TROP BASSE SS PIQUER N 
ORTEL S": GOTO 720 
580 IF U > 1500 THEN TEXT : HONE 
: UTAB 12: FLASH : PRINT 'UI 
TESSE TROP RAPIDE AILES OECH 
IREES ": GOTO 720 
590 IF J < CD - 23 THEN 420 
600 IF A > 50 THEN 710 
610 IF U > 200 THEN 710 
620 POKE - 16302,0 
630 FOR I = 1 TO 150 
640 HCOLÛR= 0: HPLOT 120,1 - 1 TO 
160,1 - l: HCOLOR= 3: DRAW 2 
AT 140,80: HPLOT 119,I TO 1 
61, I 

650 NEXT I 

660 FOR I = 80 TO 5 STEP - 1 
670 HCOLOR= 0: DRAW 2 AT 140,1: 

HCOLOR= 3: DRAW 2 AT 140,1 - 1 
680 FOR J = 0 TO 800 STEP I : NEXT 
J . 

690 NEXT I 
700 GOTO 720 

710 HONE : UTAB 23: FLASH : PRINT 
"***** SCRATCH SS 
‘ * * * * ": UTAB 24 : NORNAL 

• PRINT "ALT : ";A,"UIT }U 

720 NORNAL 

730 POKE - 16368,0 

740 GET A$ 

750 TEXT 



► 
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210 PRINT 
20 PRINT 
30 PRINT 
40 PRINT 
50 PRINT 
70 PRINT 
80 PRINT ' 
90 PRINT ' 
100 PRINT 
105 PRINT 
110 PRINT 
120 PRINT 
130 PRINT 
140 PRINT 
150 PRINT 
160 PRINT 
170 PRINT 
180 PRINT 
190 PRINT 


'LES PROGRAMMeI^aIÏc " » 

'LES ATARI.“&S 0HWIBLra ftVEC: " 

800XL,1200XL“ 

■rlnrec.® 5 XrSIf PROGRAMMES ONT ETE" 
ORpESSUR ATARI 800-PERITEL. CELUI-CI" 

..ni POSSEDANT SEULEMENT QUE 8 COULEURS" 
..PfBASE, NOUS VOUS DONNONS CI-DESSOUS" 

|s^itefE^rSS^D® DUE ” 
:: pisS A ^ ARI ■ QU1EUX ’ EN " 

|| IL VOUS SUFFIRA, LORSQUE VOUS RECON-" 
"L’INSTRUCTION ’SETCOLOR’ PAR" 

"PAR LA COULEUR CORRESPONDANTE" 

„ A SELLE DE VOTRE MANUEL ATARI" 

VALEUR.COULEUR DE L'ATARI 800-PERITEL: 


200 PRINT 
210 PRINT 
220 PRINT 
230 PRINT 
240 PRINT 
250 PRINT 
260 PRINT 
270 PRINT 
280 PRINT 
290 PRINT 
300 PRINT 
310 PRINT 
320 PRINT 
330 PRINT 
340 PRINT 
350 PRINT 
360 PRINT 
370 PRINT 
400 PRINT 


"2 - î'fGlR. 2=RQUGE, 4=BLEU, 6=VI0LET" 

8=VERT,10=JAUNE,12=TURQÜ0ISE,14=BLANC" 

"$¥ÏRF„5F3Ê! RQlJE: LES A TARI ONT LA PAR-" 
51 AU B0UT DE 15" 

"H ûurls 0N NE tq UCHE PAS LE" 

"ÊFu^FFaJF EC RAN CHANGE DE COULEUR" 
"POUR PRESERVER VOTRE TV" 

"COMME LES JEUX UTILISENT LES" 

LES JOYSTICKS, IL FAUDRA DONC ûppmyfp" 
“SUR UNE TOUCHE POUR RESTITUER"' ER 
“LES COULEURS INITIALES." 

;;ET ENFÎN, TOUTES LES FOIS OU VOUS" 
FAITES RUN’, VOUS DEVEZ D’ABORD" 
"APPUYER SUR 'SYSTEM RESET’." 

"VOILA... MAINTENANT BON AMUSEMENT." 


SAUT DE HAIES 


Classique mais ardu... Vous ne pensiez pas pouvoir 
. , . faire du sport sur votre micro 

et bien vous vous trompiez. Cette leçon vaut bien un jeu sans doute 

Vous voici sur un stade 
où votre forme physique (et intellectuelle) 
vous sera salutaire. 


BUT DU JEU 


Parlez sans perdre une seconde dès le si¬ 
gnal et enjambez l'un après l'autre les di¬ 
vers obstacles que vous rencontrerez en 



éssayant de gagner le maximum de 
temps, et en évitant, bien sûr. de mordre 
la poussière. Vous êtes chronométré et 
vous devez toujours battre votre propre 


record. Attention les haies sont parfois 
très rapprochées . 

AU CLAVIER 

Faites RUN et courez. 


99 

100 
110 

199 

200 
210 

299 

300 
310 
400 

409 

410 

419 

420 

429 

430 

439 

440 
443 
445 
450 
455 
460 
470 
480 

499 

500 

509 

510 


"IoSUb'ÎÔOO ^ 1 ^ 3 GRAPHI0UES 

g°S u Bl5000:REM AFFICHE LES REGLES 
ÊÊÎ?,J NIT " LES VARIABLES DU JEU 
GOSUB 10000 

SOSUB 14 100: REM DEGRE DE DIFFICULTE 
REM INIT. DECOR DU JEU 
GOSUB 9000 

SC=0:GOSUB 8000:REM AFF. SCORE A BATTRE 

REÎÏ C DERSuŒ^EN? U D-iNE 0 SÀN!HE NB MANCHES GAGNEES 

GOSUB 7000 

REM PERDU PAR FEIGNANTISE? 

IF FJ>1 THEN MSG=1: GOTO 600 
REM A-T-ON PERDU PAR LENTEUR"? 

IF SOSCBA1+BONUS THEN 500 
^M BONH. A GAGNE UNE MANCHE 
£DSUB1300° : R E M MIMIQUES DU BONH. 

L? 

GOSUB 14000:REM°AUGMENTE DIFfÏcULtPhAIE 1 ^ SC ° RE A BATTRE 
Fnc. _ f-i? 0EGEl , ? ? °°0 : REM MESSAGE : GAGNE 

pdur lecture message 

600 






































399 REM PARTIE TERMINEE 

AOO GOSUB 11000: REM AFF. MESSAGE 

610 GOSUB 12000:REM ATTENTE PR REJOUER 

620 GOTO 200: REM RECOMMENCE PARTIE »> 

999 REM <<< INIT. ECRAN + CARA. GRAPH. 

1000 F'OKE 106, PEEK( 106)-5: GRAPHICS 0 
1010 SETCOLOR' 4 , 0,0:SETCOLOR 1,0,0 

POSITION 4:îôlpRINT "PATiENTEZ QUELQUES INSTANTS..." 

llîo FOR T I=Q E fo ( î023*POKE^DLST+1,PEEK(57344+1):NEXT I 

1130 F0R E I=0 6 T0 L 119tREAD VrPOKE 512+DLST+I,V:NEXT I 

2000 r!m UR <« CARACTERES GRAPHIQUES »> 

2029 REM HAIE 

2030 DATA 0,8,S,8,3,24,56,ijj 

2049 REM HAÏE'TOMBEE 

2050 DATA 0,0,0,0,64,96,126,25j 

2099 REM TERRAIN 

2100 DATA 0,0,0,0,0,0,0,^55 

2199 REM FANION' ., 

2200 DATA 16.56,124,56,16,16,16,255 

2299 REM BONH. POS. 1 : COURT 

2300 DATA 0,0,0.0,0,12,12.0 
2310 DATA 127,216,24,30,50,227, 

2319 REM BONH. POS. 2 : COURT 

2400 DATA 0,0,0,0,0,12,12,0 • 

2410 DATA 120,95.24,28,110. 66, o,-.5 j 

2499 REM VONH. POS. 3 : SAUTE 

2500 DATA 0,0,0,0,0,0,3,2 

2510 DATA 12, 12,48,254,48,2^2,1 ? 1,0 

2599 REM BONH. POS. 4 : DEFART^ 

2600 DATA 0,0,3,59,56,212,164,25j 

2699 REM BONH. POS. 5 : GAGNE1 

2700 DATA 0,0,0,0,0,24,24,0 

2710 DATA 153,189,90,24,36,36,102,255 

2799 REM BONH. POS. 6 : GAGNE. 

2800 DATA 0,0.0,0,0,24^5^,129 

gg remAFËICÊ lAGà BÔNHÔMMË’ --- 
2999 REM SELECTIONNE CARACTERES GRAPH. 

3010 IF E o1b=3 THEN AFBH=BSAUT: GOTO 3100 
3020 IF F'0SB=4 THEN AFBH=BDEP: GOTO 3100 
3030 IF P0SB=5 THEN AFBH=BGAG1: GOTO 3100 
3040 IF P0SB=6 THEN AFBH=BGAGi:GOTO olOO 

|gg ÎPSSK&'ÆfëT?® AFBH=BC0UR2 

IF M POBbÎ- THEI\| E pOKE^ECRAN+ f Xl-1 > +Yl*Xt1,0: F'OKE ECRAN+X1+Y1.XM, 0: BDTO 3200 
3.Hn TF pnSBl=4 THEN POKE ECRAN+X1+Y1*XM, ANO: GOTO 3200 
3140 POKE ECRAN+X1 + < Y1-1)* XM,0:POKE ECRAN+X1+Y1*XM,ANO 
3199 REM - AFFICHE BONHOMME - 

II Ç^ilïP^pÔÎE'IcRÂNÏÏfllîim.XM.AFBH.PCKE ECRAN+X 1+Y1*XM, AFBH+1: GOTO 

3240 POKE icRANlxiï(Yl-l) E XM,AFBH:POKE âCRAN+X1+Y1*XM,AFBH+1 

3400 RETURN A11 „ 

3909 dpm LE JOUEUR SAUTE 

4000 IF ST=0 THEN GOSUB 4400:RETURN 

4009 REM JOUEUR EST DEJA EN SAUT: 

4010 IF STICK (JR) 014 THEN 4100 
4020 LSAUT=LSAUT-1 

4030 IF LSAUT=0 THEN 4100 
4040 GOSUB 4200:RETURN 

4099 REM L.E JOUEUR RETOMBE 

4100 ST=0:LSAUT=0:POSB=1 
4110 GOSUB 4200: RETURN 

4199 REM AVANCE BONHOMME + TESTE LE 
4^00 X=X+1 

ifo IF^PEEkTeCRAN+X-M Ÿ - ST>*XM > =HAIE THEN 4300 
4219 REM TESTE SI FIN LIGNE: 

118 W reS<ËcÆ+Y«MK>FAN THEN Y=Y+3: X=0: RETURN 

P&?SS!ô.P&3?S&« 

4299 REM LE JOUEUR TOMBE SUR HAIE 

4300 P0SB=4 : NHA11 =NHA 11 -1______ 


3400 





4310 

4320 

4399 

4400 
4410 

4999 

5000 
5010 
5030 

5999 

6000 
6030 
6040 
6050 
6999 
6999 
■7000 
7010 

7099 

7100 
7110 

7119 

7120 
7130 
7140 
7150 
7160 

7199 

7200 
7210 
7220 
7230 

7299 

7300 
7310 

7499 

7500 
7510 
7520 
7590 

7599 

7600 
7610 
7615 
7620 
7625 

7629 

7630 
7640 
7650 
7655 
7660 
7680 

7698 

7699 

7700 
7710 
7720 

7999 

8000 
8010 
8020 

8999 

9000 
9010 
9020 
9030 
9040 
9100 
9110 

9119 

9120 

9199 

9200 
9210 
9220 
9230 
9240 
9250 

9299 

9300 


-6DSUB 3000:AN0=HAITB 
RETURN 

REM INIT LE SAUT 
ST=1:LSAUT=3:F0SB=3 
BOSUB 4200:RETURN 
REM DEPLACEMENT DU JOUEUR 
îE ST=1 THEN GOSUB 4000:RETURN 

BOsS «ÔO^TURN*™ BDSUB 4000:RETURf < 

if M posI<>4 E then T re?urn DEPflRT 

DEP^ïPæT! B S^ 1 DEPfl=l!RETURN 

RETURN 

DEROULEMENT D'UNE MANCHE 
REM INIT. LA MANCHE 
BOfUB 7500:REM INIT VARIABLES 
GJ5UB 7600:REM BONH. EN POS. DEPART 
rn2i.DEROULEMENT DE LA MANCHE: 

GOSUB 7700:REM AFFICHE SCORE 
1F FJ-2 THEN 7300:REM SI DISQUALIFIE EN milPSF 
REM DIMINUE ECART ENTRE LES HAIES 
GOSUB 6000:REM SI EN POS. DEPART 
IF DEPA=1 THEN 7100 
GOSUB 5000:REM GESTION DU BONH. 

GOSUB 3000:REM AFFICHE BONH. 

IF FJ<1 THEN 7100 
REM MANCHE TERMINEE 

£™,22 A I H ^ AI1:REM NBRE HAI ES TOMBEE 
BONUS= 0: IF NH=0 THEN B0NUS=100 
GOoUB 7710:REM AFF. SCORE FINAL 
REM DIMINUE ECART ENTRE LES HAIES 
REM AFF. BONH. TERMINE 

return N0=TERR:P0SB=5:G0SUB 3000 

JEU 

ANO=TERR : F'0SB=4 : BASC= 1 
FJ=0 
RETURN 

R EH POSITION DEPART DU BONH. 

P0SB=4:GOSUB 3000:REM BONH. POS DEPART 

POSITION 5,3:7 "PRET 1 

REM &V T WS° ,#100:NEXT K 

SW"8,M !S0UND °’ I ’°’ 15!NEXT 1 

POSITION 5,3:7 "PARTEZ ..." 

FOR K=0 TO 50:NEXT K 
POSITION 5,3:7 " 

RETURN 

Set! AFFICHE POINTS SCORE 
REM MISE A JOUR SCORE: 

SC=SC+5: IF SOMXSC THEN FJ=2 
REM AFFICHE SCORE 
POSITION 30,0:7 SC;" ":RETURN 
REM AFFICHE "A BATTRE" + SCORE 
POSITION 2,0:7 "A BATTRE: “;SCBA1;" 

POSITION 23,0:7 "SCORE= ";SC?" " 

RETURN 

REM AFFICHE DECOR DU JEU 
7 CHR$(125) 

ECRAN=PEEK(88)+256*PEEK(89) 

XM=40:YM=24:MAXL=5:DEBLIG=5 
LIG1=ECRAN+XM*DEBLIG 
NHAI=0:NH=0 
FOR J=1 TO MAXL 
FOR 1=0 TO XM-1 

REM POSE-T-ON FANION D'ARRIVEE? 

REM^rasi 1 parr-EÏRÊ X DES H HflIES KE LIB1 + I ’™:BOTD 9400 

IF NH>0 AND NH<MAXNH THEN 9230 

ïe Hhït'LS'î I>LIM2 THEN 9300 
IF I/H<>INT(I/H) THEN 9300 
IF RND (0X0.15 THEN 9300 
POKE LIG1+I,HAIE:NH=NH+1 
NHAI=NHAI + 1: GOTO 9400 
REM POSE DU TERRAIN 
POKE LIG1+I,TERR:NH=0 
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FAINEANTISE !": RETUFÎN 


,":RETURN 


9400 NEXT I 
9410 LIG1=LIG1+3*XM 
9500 NEXT J 

9600 NHAI1=NHAI:RETURN 

9999 REM VARIABLE DU JEU 

10000 REM VARIABLE DESSIN GRAPHIQUE 
10010 HAIE=64 

10020 HAITB=65:REM HAIE TOMBEE 
10030 TERR=66:REM TERRAIN COURSE 
10040 FAN=67:REM FANION D 7 ARRIVEE 
10050 BCOUR1=68:REM BONH. COURT 1ER FIG. 

10060 BC0UR2=70:REM BONH. COURT 2EME FIG. 

10070 BSAUT=72:REM BONH. SAUTE 
10080 BDEP=74:REM BONH. POSITION DEPART 
10090 BGAG1=75:REM BONH. GAGNE POS 1 
10092 BGAG2=77:REM BONH. GAGNE POS 2 
10100 JR=0:REM JOYSTICK DU JOUEUR 
10110 LIMl=4:REM DEBUT LIG POUR HAIE 
10120 LIM2=33:REM FIN LIG POUR HAIE 
10140 SCBA= 1500 : SCBA1 =SCB A : REM SCORE A BATTRE 
10150 MXSC=2000:REM SCORE DE DISQUALIFICATION EN COURSE 
10160 MANC=0:REM NBRE DE MANCHE 
10600 RETURN 

10999 REM MESSAGES DIVERS 

11000 POSITION 2,2 

11010 ON MSG GOSÜB 11100,11200,11300,11400 
11020 RETURN 

11099 REM MESSAGE 1 

11100 ? "PERDU:" 

11110 PRINT "DISQUALIFIE POUR 

11199 REM MESSAGE 2 

11200 ? "PERDU:" 

11210 ? "VOUS ETES TROP LENT.. 

11299 REM MESSAGE 3 

11300 ? "PERDU:" 

11310 ? "MAIS VOUS AVEZ TENU ";MANC; 

11399 REM MESSAGE 4 

11400 ? "GAGNE:" 

11410 ? "IL FAUDRA MAINTENANT BATTRE 
11999 REM ATTENTE POUR REJOUER 

12010 PRINT* "POUDREJOUER, APPUYEZ SUR LE BOUTON" 

12020 FOR K=0 TO 50:IF STRIG(JR)=0 THEN RETURN 

12030 NEXT K 

12050 POSITION 3,22 

12060 PRINT "POUR REJOUER, APPUYER SUR LE BOUTON" 

12070 FOR K=0 TO 50:IF STRIG(JR)=0 THEN RETURN 
12080 NEXT K 
12090 GOTO 12000 

12999 REM MIMIQUE DU BONH. VAINQUEUR 

13000 FOR 1=1 TO 10 

13010 IF P0SB=5 THEN P0SB=6:G0T0 13100 
13020 P0SB=5 

13100 GOSUB 3000:REM AFFICHE BONH. 

13110 FOR K=0 TO 50:NÈXT K 
13200 NEXT I 
13300 RETURN 

14000 IF^H=MAXH 1 THEh^GOSUB^ 100: RETURN : REM SI COMPLIQUE JEU 
14010 H=H-2:IF HCMAXH THEN H=MAXH 
14020 RETURN 

14099 REM AUGMENTE LA DIFFICULTE JEU 

14100 IF MANC>12 THEN MAXNH=3:H=5:MAXH=5:RETURN 
141ÎO IF MANC>8 THEN MAXNH=3:H=10:MAXH=5:RETURN 
14120 IF MANC>4 THEN MAXNH=2:H=10:MAXH=4:RETURN 
14130 MAXNH=1 : H=10: MAXH=3: RETURN 

14999 REM REGLE DU JEU 

15000 PRINT CHR$(125) : REM EFFACt ECRAN A11AklT . __ 

-110 METRES HAIES-: REM 6 BLANCS AVANT LES 


MANCHES !":RETURN 


'jSCBAl;" !":RETURN 


15010 PRINT 
15030 PRINT 
15040 PRINT 
15050 PRINT 
15060 PRINT 
15070 PRINT 
15080 PRINT 
15090 PRINT 
15100 PRINT 
15110 PRINT 
15130 PRINT 
15140 PRINT 
15170 FRINT 


"ET OUI, LES JEUX OLYMPIQUES DE 1984" 
"VONT COMMENCER... ET VOUS PENSIEZ" 
"REGARDER TRANQUILLEMENT LES ATHLETES" 
"S 7 ESSOUFLER DEVANT VOTRE TELEVISEUR," 
"N 7 EST-CE PAS ?" 

"ET BIEN NON, VOUS COURREZ VOUS AUSSI!" 
" DES LE COUP DE FEU. APPUYEZ SUR LE" 
"SUR LE BOUTON DU JOYSTICK" 

" POUR SAUTER LES HAIES, POUSSEZ LE" 
"LE MANCHE VERS LE HAUT" 

» POUR FAIRE VOS PREUVES, VOUS DEVREZ" 

















15180 

15190 

15192 

15194 

15200 

15210 

15320 

15330 

15340 

15400 

15410 

15420 

15999 

16000 
16010 
16020 
16100 


N’OUBLIEZ PAS DE BRANCHER LE" 
JOYSTICK DANS LE PORT 1" 


gjjg :: ^?L NI E R aÜ? BATTRE^(S? 1 AUCUNE^HAIE "NE" 

PRINT "DE M 100 V P0?NTS) R " EZ DEPASBER Œ SC ° RE " 
PR INT 

PRINT "N.B.: 

PRINT " 

PRINT 

Ïf'sÏrÏ^FtS as™ P0UR CDmENCER "’ 

ÊK!îL. CHR * (i25):REM EFF ^CE ECRAN 
htlURN 

REM NOMBRE DE MANCHES GAGNEES 

IF MANORCMANC THEN RCMANC-MANC 

POSITION 2,19:PRINT "MANCHE RECORD= ";RCMANC 

POSmON 25,19:PRINT "MANCHE NO. " ;MANC; " 

RETURN 




GYROBATTLE 


A bord de votre aéronef léger 
vous devrez accomplir un voyage au bout de l'enfer. 

, En effet, vous venez d'être prévenu 

qu un seul rescapé subsistait à l'intérieur de la dangereuse cité interdite. 
Allez donc vite le secourir, mais prenez garde 
au champ magnétique. 


BUT DU JEU 



au momeni opportun, descendez ensuite bord du super-aéronef de secours , 
dans la cité interdite pour porter assis- f AU CLAVIER 


ir,o^ r p 7 finn- i r rhn . •. Clans la cite interdite pour porter assis- I AU CI AVIFR I 

le cham P magnétique tance au rescapé et ramenez-le enfin à Faites RUN et s uivez les instructions. 


7 DIM R$ ( 1) _ 

10 G0SUB 1100 

19 }299°|.§ EM , AFFICHE LES REGLES 

ïR 9nIHn REM la montagne 

40 GOSUB 3000:REM les murs 

3500:REM affiche le rescapé 
6u bGSUB 4000:REM les points 
Z? 2000:REM décollage hélico 

?0 PRltl? îè2?è0ÜND B 0?J“;0?i0UND 0 l 0 è G 0 S 0 B 2100=60SUB 31M = IF HEUCDOO AND RESCAPES!» THEN 00 
R f{3 C?9ÇnS b £ enir faites esc-4hift clear 
110 GOSUB iloV:’R™in R ^e T iëu DUS "’ eteS 9L,ere secouriste M ..":G0T0 140 

ÊEÎKÏ " BRAV0 ' ' Vous etes un hero" 

}ÿj? PRINT , ol! Llne beroine.." 

Î5S PRINT Voulez-vous rejouer (0/N) 

118 prÏnt ™^ E 5S{^:"s: E ;g EN PRINI " e,, = B0T ° ®> 

999 REM ^DEPLACEMENT PALES §i 

f RP_DLST+528, 0: P0KE DLST+5.3A. 1 ?7 

RETURN 

..„, RETURN 

î ! qPrrni 1 ne ’ ? EEK <106)-5: GRAPHI CS 0 

1110 SETlOLOR 4,0,4:SETCOLOR 1 10 13 
1120 SETCOLOR 2, jUtPOKE 752. V ’ 
î î an ™ T T 1 FE |L < 106) +1 ï *256 : GOSUB 4500 
1150 I 7§6,:gLé??M?^Ki L ?5î 1 i PEEK (57344+ 1 » •* NEXT 1 

Il j® çtoæg scsi fi 2tDLsTH - v = NExT 1 

SS 888 il^:&:^ 9 I#iii 2 ilI 7 - 40 
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t 




1200 

1209 

1210 

1219 

1220 
1230 
1240 
1300 

1310 

1311 
1320 

1499 

1500 
1510 
1520 
1530 
1540 
1550 
1552 
1556 
1560 

1570 

1571 
1600 

1999 

2000 
2005 
2010 
2020 
2030 
2040 

2050 

2051 
2060 

2099 

2100 
2101 
2110 
2111 
2120 

2130 

2131 

2150 

2151 
2160 
2161 

2170 

2171 
2180 

2190 
0 

2191 
2200 
2201 
2210 
2211 
2230 

2299 

2300 
2310 
2320 

2330 

2331 
2340 
2350 
2400 

2999 

3000 
3010 
3020 
3030 
3040 
3090 

3099 

3100 

3101 

3110 

3111 

3120 

3121 

3130 

3131 

3140 

3141 

3150 

3151 

3160 

3161 
3170 


DATA 255,96,252,134,195,255,48,254 
REM ** DESSIN DU BONHOMME ** 

DATA 124,84,124,56,254,124,108.238 
REM ** DESSIN DU BROS HELICO ** 

DATA 0,127,6,63,96,193,255,15 
DATA 15,224,3,199,255,255,255,0 
DATA 255,96,248,12,6,255,255,240 
FRINT CHR$(125):REM EFFACE ECRAN 
ECRAN=PEEK(88)+PEEK(89)*256 
REM addresse de début d'écran 
RETURN 

REM ** AFFICHAGE MONTAGNES ** 

X=0:Y=RND(0)*4+15 

Y1=23:DY=INT(RND(0)*3)-1:DY=(DY=1 AND Y<22)-(DY=-1 AND Y>15> 

POKE ECRAN+Y1*40+X,128:Y1=Y1-1:IF Y1>Y THEN 1520 

A=72*(DY=—1)+128*(DY=0)+74*(DY=1>:Y=Y+DY 

POKE ECRAN+Y1*40+X,A 

IF A< >72 THEN 1560 

POKE ECRAN+Y1*40+X,123 

POKE ECRAN+(Y1 — 1)*40+X,72 

X=X+1: IF X<40 THEN 1510 

POKE ECRAN+10,69:POKE ECRAN+11,70:POKE ECRAN+12,71 

REM affichage gros hélico 

RETURN 

REM ## DEMARAGE HELICO ## 

FOR 1=200 TO 50 STEP -1/10 

XH=38 : YH=0:POKE ECRAN+40*YH+XH.64:POKE ECRAN+40*YH+XH+1,65 
SOUND 0,1,2,15:GOSUB 1000 ’ 

SOUND 1,1+10,10,5 

FOR J=0 TO 10:NEXT J 

GOSUB 1050:NEXT I:SOUND 0,150,2,15 

Cl=64:C2=65 ’ 

REM init des caractères hélico 
RETURN 

REM ## DEPLACEMENT HELICO ## 

GOSUB 1000:GOSUB 2300 

REM test si il va quelque chose 

S=STICK(0):DX=(<S=6> + (S=7)+ (S=5)> *(XH<38>-((S=9) + (S=10) + (S=l1))* <XH>0) 

REM déplacements d:<, dy 

DY=((S=5) + (S=9) + < S=13 >)*(YH<22)-((S=6) + <S=10) + (S=14))*(YH>0) 

IF DXOO OR DYOO THEN POKE AD, 0: POKE AD+1,0 
REM efface les traces 

XH=XH+DX:YH=YH+DY:GOSUB 1050:GOSUB 2300 

REM tests écran 

IF DX=0 THEN 2180 

REM aucun changement de sens 

Cl=64:C2=65:IF DX=1 THEN C1=66:C2=67 

REM caractères d'affichage 

POKE AD,Cl:POKE AD+1.C2 

ST=STRIG(0): IF ST=0 AND (XH=10 OR XH=11) AND YH=1 AND H0M=1 THEN GOSUB 4070:H0M=0:GOSUB 350 
REM test si réussit la sauver 

A=PEEK(AD+40): IF A=68 AND ST=0 AND H0M=0 THEN POKE AD+40,0:H0M=1 
REM si prend une personne 

B=PEEK(AD+41): IF B=68 AND ST=0 AND H0M=0 THEN POKE AD+41,0:H0M=1 

REM idem 

RETURN 

REM ## TEST HELICO ## 

AD=ECRAN+YH*40+XH:A=PEEK(AD):B=PEEK(AD+1) 

IF (A=0 OR (A>63 AND A<68)) AND (B=0 OR (B>63 AND B<68>) THEN RETURN 

IF (A=68 AND B=0) OR (A=0 AND B=68) AND H0M=0 THEN H0M=1:RETURN 

GOSUB 4050:GOSUB 2000 

REM hélico en moins et reinialise 

AD=ECRAN+XH+YH*40 

IF H0M=1 THEN GOSUB 3500 

H0M=0:RETURN 

REM ++ INIT DES 2 MURS ++ 

Y1=INT(RND(0)*8)+3:Y2=Yl+2 
YBM=Y1+1:XBM=0 

FOR 1=0 TO 39:POKE ECRAN+I+Y1*40,128 
POKE ECRAN+I+Y2*40,128:NEXT I 
POKE ECRAN+XBM+YBM*40,128 
RETURN 

REM ++ GESTION DES OBSTACLES ++ 

POKE ECRAN+XBM+YBM*40,0 
REM efface carre mobile 
XBM=XBM+1: IF XBM=40 THEN XBM=0 
REM déplacé le pave 
POKE ECRAN+XBM+YBM*40,128 
REM reaffiche le pave 
IF ATTM1>0 THEN 3160 

REM si attente de fermeture du mur supérieure non fini 
AD1=ECRAN+X1+Y1*40:POKE ADI,128:POKE ADl+1,128 
REM fermeture du mur 

ATTM1=INT(RND(0)*10)+10:X1=1NT(RND(0)*39) 

REM nouvelle attente et ouverture 
AD1=ECRAN+X1+Y1*40:POKE AD1,0:POKE AD1+1,0 
REM affiche la nouvelle ouverture 
IF ATTM2>0 THEN 3210 
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|ÎSC. ™"4c™«2Î?2M0Îp5*rïE2 12sîpo4 n SSV r f,S on «"* 

3190 flTTM2=INT(RND (0> ïlOjïlO: X2ÏlNT(Rm?01 ™ 1 ’ 128 

iiî§ «^K?rrœ T K f«2™ï’ S ™ ™ 2Îî !» 

3220 MîlÉ, “ UBnte S " 

|499 Ç EI ?<< JN 11 DU BONHOMME » 

3jOO X=INT(RND(0)*40) 

3520 A=PEEK(ECRAN+X+Y*40)^ STEF 

li|g IF S? C$îîî 2 ?H^ E goiS^lg§g AN+X+Y * 40 ’ A8ï e0T0 3590 

THEN S05UB 1050 

3570 IF-?>S| X ThEÙ X ;2S 1SIF X>3 ’ ™ EN X=0 
C.-.580 GOTO 3510 
3590 RETURN 

3999 REM INIT DU SCORE 

4010 HELICO=5:RESCAPES=Io" HeliC ° PtereS : " ?:P0SITI0N 25,23:PRINT "Rescapés 

«as ^°s^?ge u Mî^ uRN 

4050 HELIC0=HELIC0-1: POSITION 15 
4060 F'RINT HELICO: : RETURN ’ 

4069 REM UNE PERSONNE SAUVEE 

4070 RESCAPES=RESCAPES-1:POSITION "*6 °3 

4081 REM^Nh^H 36 ’ 23îPRINT RETAPES? ’ 23 
4090 RETURN resca P es restants a sauver 

4099 REM FIN DU JEU 

4iîo POT-îfif^viara.iûa 1 ?* 

4130 GoluB^OSoSNEXT 1 ! 1 CHR$ (5) ? CHR * <6) ; CHR4 (7) ;. 

I 11 il 1000 

Silo S’ÎSoélàèrrT CHR *<o“fcAR*?i) 5 » 

ils ,0,0,0 

4230 RETURN 

4499 REM MESSAGE POUR L’ATTENTE 

9999 REM^SLEè'D^JEU 1 " PATIENTEZ QU8 *-QUES INSTANTS.RETURN 

10n?U5îîlî Î?HR*(125):REM EFFACE ECRAN 

"AUX COMMANDES D’UN HELICOPTERE"^ 

VOUS DEVREZ SAUVER VOS COMPATRIOTES" 

PRISONNIERS DU MONDE INTERDIT." 


10010 PRINT 
10020 PRINT 
10030 PRINT 
10040 PRINT 
10050 PRINT 
10060 PRINT 
10080 PRINT 
10090 PRINT 
10100 PRINT 
10110 PRINT 
10120 PRINT 
10130 PRINT 
10140 PRINT 
10150 PRINT 
10160 PRINT 
10180 PRINT 
10190 PRINT 
10200 PRINT 
10210 PRINT 
10220 PRINT 
10230 PRINT 
10240 PRINT 


7 ESPACES AVANT LES ’-’ 


" VOTRE TACTIQUE:" 

TROUVER UNE FAILLE DANS SON FrRûM” 
"MAGNETIQUE ET LE TRAVERSER <ATTFNTTON" 
:« pON NOYAU MOBILE DEsfRUCTEÜ^5 N I I0N 
ENSUITE SE METTRE JUSTE AU DESSUS" 

D' UN RESCAPE ET LE RAMASSER (SANS R’" 

"DU R JOYSTICK" APPUYANT SLJR LE BOUTON" 

" e !^FIN, RETRAVERSER L’ECRAN MAGNE-" 
TIQUE (ÈH OUI!), PUIS SE PLACER 7I1STF" 
"EN DESSOUS DU SUPER-HELICOPTERE APP-" 

"! U Fq R Mû| U 5rhlrnv UT0N P0UR DEBARQUÈrTÊs" 
9oIcrA?rn EUREUX - <LE DECOMPTEUR DE" 
RESCAPES VOUS SIGNALERA SI LE DEBAR-" 
OUEMENT S’EST BIEN EFFECTUE)." 

1Ô250 PRÎNT " NB! METTRE LE JOYSTICK DANS LE PORT 1" 
1CP80 Tc I qïp^^ Y f Z T gy? LE BOUTON POUR COMMENCER"; 

ifs 
















CHASSEUR 

Qui sera le dindon de la farce 
ou le pigeon du jeu ? 

Certainement vous si vous ne prenez garde à vos plumes 
car la chasse est ouverte 
Votre insatiable appétit risque de vous faire 
battre de l'aile. 



BUT DU JEU 


Volez sous le feu nourri d'un chasseur qui 

vise bien afin de vous poser au sol, si pos¬ 


sible sur les merveilleuses petites graines 
qui vous senfbleront délicieuses. La chose 
étant faite, rapportez cette nourriture au 


creux de votre nid douillet. 


AU CLAVIER 


Lancez le jeu en faisant RUN. 




7 DIM R$(1),A$(1) 

10 GOSUB 5000:GOSUB 10000 

20 GOSUB 1000:GOSUB 2000:GOSUB 3000:GOSUB 4000 
30 CHANCE=16 

40 GOSUB 2100:GOSUB 1100 

50 IF RND(0X1/CHANCE THEN GOSUB 1100 

60 IF PIGE>0 THEN 40 

70 PRINT "è": REM esc-shift clear 

75 SOUND 0,0,0,0:SOUND 1,0,0,0 

80 PRINT "Voulez-vous rejouer (0/N) 

90 INPUT R*:IF R*(1)="0" THEN PRINT "è“:G0T0 20 
100 PRINT " AU REVOIR ..." 

110 END 

999 REM (( INITIALISATION CHASSEUR )) 

1000 TIRX=0:TIRV=0 
1020 XB=20:YB=20:DXB=0 
1030 RETURN 

1099 REM (( CHASSEUR ET TIRS )) 

1100 IF DXB=0 THEN R=RND(0):DXB=(XO-XB)*(R>0.5) 

1110 COLOR 32:PLOT XB,YB:XB=XB+SGN(DXB):DXB=DXB-SGN(DXB):COLOR 0 

1111 REM déplacement du chasseur 

1115 LOCATE XB,YB,A:IF A=94 THEN FIN=1 

1116 PLOT XB,YB 

1120 IF RND(0X0.4 THEN 1150 

1121 REM une chance sur 4 de tirer 

1130 IF TIRY>4 THEN 1150 

1131 REM cherche un tir de libre 

1135 COLOR 32:PLOT TIRX,TIRY:TIRX=XB:TIRY=YB-1:COLOR 124:G0SUB 1300 
1140 SND=150:SOUND 0,SND,6,15 

1150 GOSUB 1300:COLOR 32:PL0T TIRX,TIRY 

1151 REM efface chaque tir 

1160 IF TIRY<5 OR TIRY<Y0-1 THEN TIRY=4:SOUND 0,0,0,0:RETURN 

1161 REM suivant si non valide 

1170 TIRY=TIRY-1 

1171 REM déplacé le tir, test au but 

1175 TIRX=TIRX+SGN(XO-TIRX) # (RND(0X1/CHANCE) 

1177 GOSUB 1300 

1180 SND=SND-1:SOUND 0.SND.6.15 
1200 COLOR 124:PLOT TIRX,TIRY 
1220 RETURN 

1300*LOCATE TIRX,TIRY,A 
1310 IF A=94 THEN FIN=1 
1320 RETURN 

1999 REM INI T PIGEON 

2000 X0=35:Y0=3:FIN=0 
2010 RETURN 

2099 REM GESTION DU FIGEON 

2100 COLOR 32:PLOT X0,Y0 
2110»S=STICK(0> 

2120 X0=X0-((S=9)+(S=10)+(S=11)>*<X0>2)+((S=5)+(S=6)+(S=7)>*(X0<35) 

2121 REM déplacement horizontale 

2130 Y0=Y0+((S=9) + (S=5) + (S=13))*(Y0<20)-((S=14) + (S=6) + <S=10))*<Y0>3) 

2131 REM déplacement verticale 
2135 LOCATE XO.YO.A 

2140 IF FIN=1 OR A=124 OR A=0 THEN GOSUB 4200:G0SUB 2000 
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2141 

2150 

2151 
2160 
2161 

2170 

2171 
2200 

I 2999 
W3Û00 
oü40 


REM si un tir le touche —- 

C0L0R 94:PLOT XO.YO 

REM a-ffiche le pigeon 

REM A Ii p?^S + iAe graine 74 AN ° GRAIN= ° THEN GRA ™=^OLOR 160:PL0T XO, Y0+ i:GRD=GRD-1 

REM X sr' : re2ssiï°a 3 lf?apîSrte? ,=0 AND SRAIN=1 ™ EN G0SUB 4100 

RETURN 

prÎnt # 4" IT du decor ## 

POSITION 26, 0: PR INT 11 


"ÎPIGE 


*3050 POSITION 26,1 :PRINT " 

3060 POSITION 27,2:PRINT " 

3070 POSITION 36,3:PRINT » » 

m Pifî3N 7 SJï;® I ïg N T?ri !PRINT " " !NEXT I:BRD =° 

3120 PRÏnt"mÏ:NEXT°I < 0 - 25 ™ EN Aî= "-" = GRD=SRD + 1 
3200 PRINT " ".-RETURN 

4000 PIBE=5:PT=0 ° U SCDRE ET PIGE ° N ++ 

4020 RETU™ °’ 1:PRINT ‘ ,Score : "SPT:POSITION 0,2:PRINT "Nombre de pigeons 

4099 REM ++ MISE A JOUR DES POINTS ++ 

4100 GRAIN=0:PT=PT+1:POSITION 8,1:PRINT PT 

4120 RETURN' 1 THEN PIGE=PIGE+1: ê0SUB 3010:G0SUB 4010:IF CHANCE>2 THEN CHANCE=CHANCE-4 

«S « 

4230 REtH5n PISE:C 0L ° R 32:BRfltN=0 
4^99 REM == CARACTERES GRAPHIQUES == 

-000 POkE l 06, PEEK ( 106 ) -5 : GRAPHI CS 0 

!§|3 PITS? L Bg R |- ( îë§; i°- e 

soi DlItIiPEEkI îoll’îiî l I 2 54 ftTtENTEZ “ LBUES INS ™TS..." 

f|o ^E^6, T gL^i^?^| L fS'i PEEK,573,4t[,lNEI(T 1 

2060 FOR 1=0 TO 7:READ V:POKE 496+DLST+I,V:NEXT I 
5100 RETURN^ T ° 7:READ V:P0KE 512+DLST+I,V:NEXT I 
DATA 0,0,68,170,56,16.0,0 

REM dessin de l’oiseau ' 

|Î3? RpK, A H i, 24 J S4 i 12 4 - 56,254, 124.108,233 

9999 REM REGLÈ"DU Ü jÈu nh0 “ e 

10000 PRINT CHR$(125):REM EFFACE FrRûlU 

Î88ÎS PRINT^PRINt 0 '^ 1 ^ "-~U PIGEON— 

10020 PRINT "CA Y’EST, LA CHASSE EST fil iufrtp 

10040 PRINT ■■P?qIoS E TÏ E FciIS ~ CI c ’ est vous lé" 

10050 PRINT 

m u « iis» 

”gIîs”î& L ^i5 s v^i i: - 

}§[« pSiijT 485? KfeiofKIf im fe 

îoîlo PRINT "LE D BOUTON)" S DEP ° SER <EN APPUYANT ggr " 

10170 PRINT 
10180 PRINT 
10200 PRINT 
10220 PRINT 


10110 PRINT 
10120 PRINT 
10130 PRINT 


:: mSs S lÉ E port S i! îe " ettre le JDYSTICK " 

III If 'tS pdur ”*“»■< 

iSli a cHR * <I25 > 



m 






























LES BONS BONDS 

amusant où le monde se dérobe sous vos pieds. 
Dans cet univers mouvant, 
vous devez défendre chèrement votre vie, 
de remplir votre mission tout en évitant de vous fracasser 
lamentablement sur le bas de votre écran. 




BUT DU JEU 


Sautez de colonne en colonne en prenant 


soin de ne pas culbuter, et rattrapez au vol 
ces maudites balles qui vont et viennent. 
Ah j'oubliais... ces colonnes ne sont vrai¬ 


ment pas très stables. 


AU CLAVIER 

faites R U Kl et suivez les instructions. 


7 DIM R$ ( 1 ),PL(2,3) 

10 GOSUB 5000:REM préparé l’écran 
15 GOSUB 10000:REM AFFICHE REGLES 
20 POSITION 0,20:PRINT "■ '■ 


21 REM -faites 40 ct.rl-M pour le trait 
30 GOSUB 1100:GOSUB 3000 
40 GOSUB 2000:GOSUB 4000 

50 GOSUB 3100:GOSUB 1200:GOSUB 3100:GOSUB 2200:GOSUB 3100:IF NBH>0 THEN 50 
100 PRINT "è" 

110 IF SCORE>500 THEN PRINT "BRAVO, CHAMPION !!":G0T0 150 

120 IF SCORE>200 THEN PRINT "Vous etes adroit, felecitations...":G0T0 150 

130 PRINT "C’était pas convainquant 

150 PRINT "Voulez-vous rejouer (0/N) "5 

160 INPUT R$:IF R*="0" THEN PRINT "à":GOTO 20 

170 PRINT "AU REVOIR..":END 

1099 REM ** INIT DES PLATES-FORMES ** 

1100 RESTORE 5160 

1110 FOR 1=0 TO 2:FOR J=0 TO 3:READ A:PL(I,J)=A:NEXT JrNEXT I 
1119 REM mobiles : coordonees x,y îpas S< variables de déplacement 

1129 REM -- affichage -- 

1130 COLOR 2:FOR 1=0 TO 8:READ H:FOR J=19 TO H+l STEP -1 

1131 REM boucles des colonnes, 

1140 PLOT 1*4+3,J:NEXT J 

1141 REM affichage 

1150 POSITION 1*4+2,J:PRINT P$:NEXT I 
1170 RETURN 

1199 REM ** DEPLACEMENT PLATEAUX ** 

1200 FOR 1=0 TO 2:X=PL(1,0):Y=PL(1,1):DY=RL(1,3) 

1201 REM boucle depl. des pleateaux 

1210 LOCATE X,Y-1,A1:L0CATE X+l,Y-l,A2:LOCATE X+2,Y-l,A3:POSITION X,Y:PRINT 

1211 REM effaçage'et voit dessuâ 
1230 POSITION X,Y-l:PRINT " 

*"■" REM efface ce qu’il y a dessous 

IF A1=0 OR A2=0 OR A3=0 THEN YH=YH+SGN(DY):COLOR 0:PL0T XH,YH 
REM si c’est une bonhomme 

1280 Y=Y+SGN(DY): PL(1,1)=Y:POSITION X,Y:PRINT Pi 

1281 REM aff. plateaux 
IF SGN(DY)<0 THEN COLOR 2:PLOT X+l,Y+l 
REM affiche la colonne en plus 
IF ABS(DY)>1 THEN 1320 
REM si oscillation non fini 


1231 

1250 

1251 


1290 

1291 

1300 

1301 

1310 DY=-SGN(DY)*(PL(1,2)*2+1): PL(1,3)=DY 

1311 REM change de sens 

1320 PL(I,3)=DY-SGN(DY):NEXT I 

1321 REM déplacé d’un cran 
1350 RETURN 

1999 REM — INIT POUR LA BALLE — 

XBA=INT(RND(0)*33)+3: YBA=0 
REM coordonnées aléatoires 
2100 RETURN 

2199 REM — DEPLACEMENT DE BALLE — 

2200 LOCATE XBA,YBA,A:IF A=2 OR A=3 OR A=4 OR A=5 OR YBA=20 THEN GOSUB 2000:GOTO 2230 

2201 REM s’il y a quelque- chose a la place 

2210 COLOR 32:PLOT XBA,YBA:YBA=YBA+1 

2211 REM efface et déplacé la balle 


2000 

2001 
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2220 XBA=XBA+ (RND(O) >0. 75)*(X BA< 37)-< RND < 0)<0.25')#(XBA>1) 

2221 REM déplacement aléatoire et latreale de la balle 

2230 LOCATE XBA,YBA,A:IF A=2 OR A=3 OR A=4 OR A=5 OR YBA=20 THEN GOSUB 2000 

2231 REM si sur le sol ou en bas 

2240 COLOR 1 : PLOT XBA,YBA 

2241 REM affiche la balle 
2250 RETURN 

2999 REM ++ INIT DU BONHOMME ++ 

3000 XH=19î YH=16: SAUT=0: FIN=0 

3001 REM coods, si saute, si tombe 
3010 RETURN 

3099 REM ++ DEPLACEMENT DU BONHOMME ++ 

" 3100 YH1=YH:XH1=XH:GOSUB 4100:IF FIN>0 THEN 3180 
T3101 REM gare les coords, voir 3180 si tombe 
'3110 IF SAUT>0 THEN 3130 
3111 REM si dans un saut 

3120 S=STICK(0):DXH=<S=6) + (S=7)-(S=10)-<S=11>:SAUT= <S=6> + <S=10> + (S=14):YH=YH-SAUT:XH=XH+DXH:GOTO 
3140 

"T "3121 REM entree des commandes 

3130 YH=YH-(SAUT<3) + (SAUT >2):XH=DXH»(SAUT<3)+XH:SAUT=SAUT+1 

3131 REM déplacement dans le saut 

3140 LOCATE XH,YH,A:IF A=2 OR A=3 OR A=4 OR A=5 OR YH=1 THEN GOSUB 3000:G0SUB 4120:G0SUB 6100 

3141 REM si heurté quelque chose ou monte trop haut. 

3150 LOCATE XH,YH+1,A:FIN=((A=32) + <A=1))*((SAUT=0)*(DXH<>0) + (SAUT>8)) + (A=13) 

3151 REM test s’il rate le saut 

3160 TST= (A=32 OR A=1 OR A=0):IF SAUTOO AND TST=0 THEN GOSUB 6100 

3161 REM si le saut est bon 
3165 SAUT=SAUT*TST: GOTO 3190 

3170 SAUT=SAUT*TST: GOTO 3190 

3171 REM lors de la chute:il tombe 

3180 LOCATE XH,YH+1,A:YH=YH+(A=32): IF A<>32 THEN GOSUB 3000:G0SUB 4120:G0SUB 6100 

3181 REM lors de la chute:il tombe 

3190 COLOR 32:PLOT XH1,YH1:COLOR 0:YH=ABS(YH): PLOT XH,YH 

3191 REM déplacé le bonhomme sur écran 
3200 RETURN 

3999 REM « INIT DU SCORE » 

4000 SC0RE=0:POSITION 3,22:F'RINT "Score : 0":POSITION 25,22:PRINT "Reserve : 5":NBH=5:RETURN 

4099 REM « SCORE » 

4100 IF ABS (XH-XBA)>1 OR ABS(YH-YBA)>1 THEN RETURN 

4101 REM pas de points si pas de balle 

4110 GOSUB 6200:SC0RE=SC0RE+10:POSITION li,22:F'RINT SC0RE:C0L0R 32:PL0T XBA,YBA:GOSUB 2000:RETUR 
N 

4111 REM mise a jour des points 

4119 REM « UN BONHOMME EN MOINS» 

4120 NBH=NBH-1:LOCATE 34,22,A:PRINT NBH:" " 

4121 REM mise a jour du nb de bonhomme 
4130 RETURN 

4999 REM == CARACTERES GRAPHIQUES == 

5000 POKE 106,PEEK<106)-5:GRAPHICS 0:SETC0L0R 4,0,0 
5010 SETCOLOR 2,O,0:SETCOLOR 1,0,10 
5020 POKE 752,1:REM enleve le curseur 
5030 DLST=(PEEK(106)+1)*256:GOSUB 7000 
5040 FOR 1=0 TO 1023:P0KE DLST+I,PEEK(57344+1):NEXT I 
5050 POKE 756,DLST/256:POKE 752,1 
5060 FOR 1=0 TO 47:READ V:P0KE 512+DLST+I,V:NEXT I 
5070 DIM P4(3):P$="" 

REM Les caractères entre " sont: ctrl-C, ctrl-D. ctrl-E 
? CHR$(125) 

5090 RETURN 

5099 REM DATAS 

5100 DATA 124,84,124,56,254,124,108,238 

5101 REM dessin du personnage 

5110 DATA 60,126,255.253,253.251,102,60 

5111 REM dessin du ballon 

5120 DATA 241,235,241,235,241,235,241,235 

5121 REM dessin dé la colonne 

5130 DATA 255,237,255,63,15,3,1,0 

5131 REM plateau cote gauche 

5140 DATA 255,170,253,254,245,250,245,235 

5141 REM plateau partie centrale 

5150 DATA 255,1,145,156,112,192,128,0 

5151 REM plateau cote droite 

5160 DATA 6,11,4,4,22,16,3,-3,26,14,5,5 

5161 REM plates-f. no2 ,5 ,6. 

5170 DATA 8,11,14,16,17,16,14,11,8 

5171 REM données des hauteurs 

6099 REM BRUIT DE FIN DE SAUT 

6100 FOR 1=200 TO 120 STEP -7 
6110 SOUND 0,1,6,15:NEXT I 
6120 SOUND 0,0,0,0:RETURN 

6199 REM BRUITS QUAND ON A LA BALLE 

6200 FOR 1=40 TO 0 STEP -4 
6210 SOUND 1,I,10,13:NEXT I 
6220 SOUND 1,0,0,0:RETURN 

7000 POSITION 4,10:? "PATIENTEZ QUELQUES INSTANTS.RETURN 

9999 REM REGLES DU JEU 

10000 PRINT CHR$(125): REM EFFACE ECRAN 

10010 POSITION 15,0:PRINT "-SAUT-" 

10015 PRINT "QUE PENSEZ-VOUS:" 


5071 

5080 
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10020 

PRINT 

"DE BALLES QUI TOMBENT ?..." 


10030 

PRINT 

" ...BON. RIEN DE SPECIAI_" 

"DE COLONNES MOUVANTES ?..." 


10040 

PRINT 


10050 

PRINT 

" ...CA, C’EST DE LA S.F.!" 

"D’UN BONHOMME ?..." 


10060 

PRINT 


10080 

PRINT 

" ...BOF..." 


10100 

PRINT 

" MAINTENANT, IMAGINONS QUE CELUI-CI" 

"SE TROUVE SUR CES COLONNES MOUVANTES" 


10110 

PRINT 


10120 

PRINT 

"ET QU’IL PUISSE SAUTER ENTRE CFI 1 FS-" 


10130 

PRINT 

"CI (AVEC LE JOYSTICK) EN ESSAYANT DE" 


10140 

PRINT 

"NE POINT TGMBER DANS LE VIDE ?" 


10150 

PRINT 

"C’EST UNE HISTOIRE DE DINGUE,NON 
" MAIS S’IL DOIT ENCORE ESSAYER DE" 


10160 

PRINT 


10180 

PRINT 

"RATTRAPER LES BALLES QUI TOMBENT..." 


10190 

PRINT 

"... ALORS LA, C’EST DE LA PURE FOLIE!" 


10200 

PRINT 

" ET BIEN NON SEULEMENT CETTE HISTOIRE" 


10210 

PRINT 

"EXISTE, MAIS C’EST VOUS QUI SEREZ CE" 


10220 

PRINT 

"BONHOMME LA!" 


10230 

PRINT 

"ALORS, BONNE CHANCE, ET N’OUBLIEZ PAS" 

"DE METTRE LE JOYSTICK DANS LE PORT 1" 


10240 

PRINT 


10250 

PRINT 



10260 

PRINT 

"APPUYEZ SUR LE BOUTON POUR COMMENCER"; 


10270 

IF STRIG(0)=1 THEN 10270 


10300 

PRINT 

CHR$(125): REM EFFACE ECRAN 


10310 

RETURN 

■ 


«s* 


ss*sg$: 


!Soo> v - 


PROF 


Et si nous'retournions à l'école... 

Vous allez grâce à «Prof» retrouver l'ambiance turbulante 
des cours de récréation quand nous chahutions 
sans cesse sous l'œil vigilant 
et parfois sévère du professeur. 



BUT DU JEU 


Ramassez le maximum de boutons bleus 
en parcourant la cour de récréation et en 
évitant de vous faire attraper par le profes¬ 


seur vêtu de rouge. Vous obtiendrez les 
boutons en passant tout simplement des¬ 
sus;_ 

| AU CLAVIER 1 

Les déplacements s'effectuent à l'aide du 


joystick (le placer dans le port 1). Vous 
êtes concrétisé par un petit carré jaune. 
Pour le lancer, il suffit de faire RUN. 


10 REM *** SAUVE-QUI-PEUT *** 

11 REM 

12 REM 

13 REM 

14 REM 

15 REM 

20 RC=0:REM INIT. RECORD 

50 GOSUB 1100:REM INIT. VARIABLE JEU 

60 GOSUB 1000:REM INITIALISATION 

70 FJ=0:REM INIT. FIN JEU 

100 GOSUB 6000:REM GESTION BONHOMME 

110 IF RND (0X0.25 THEN GOSUB 6000 

120 GOSUB 7000:REM GESTION DU PROF. 

125 REM EFFETS DE POURSUITE: 

130 IF RND (0X1/VI THEN GOSUB 7000 

140 IF FJ=0 THEN 100:REM SI LA MANCHE CONTINUE 

150 IF FJ=2 THEN 300:REM SI PERDU 

155 REM ON A GAGNE UNE MANCHE 

156 REM RAJOUTE DES OBJETS ET 

157 REM AUGMENTE RAPIDITE DU PROF 
160 IM0=N0+5: VI=VI-5 

170 IF V 1=0 THEN VI=5:REM VITESSE L'IMITE 
200 GOTO 60:REM RECOMMENCE UNE MANCHE 

299 REM-ON A PERDU— 

300 PRINT "Pour rejouer, appuez sur le bouton." 
320 IF STRIG(0)=1 THEN 320:REM ATTEND BOUTON 
340 GOTO 50:REM RECOMMENCE UNE PARTIE 
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999 REM --- INITIALISATION - 

}OQo §2 SUB 2000:REM INIT. MODE GRAPH. 

}9iS .§°2UB 1200:REM INIT. BONHOMME 

1000 bOSUB 1^00:REM INIT. PROF 
IU40 BOSUB 8000: REM PLACE LES OR IFTS 

1050 return 9000:REM affiche score/rIcod 

REM ---INIT. VARIABLE JEU- 

1100 SC=0:REM INIT. SCORE 
}^2 INIT. VITESSE PROF 

1190 return NO=VNO:OB=NO:REM init - nbre obj ets 

1199 REM - PLACE BONHOMME - 

^r^S T , <R SP> 8 B x =ÏNT fRND<0)*YM> 

1220 RETURN BX,BY:REM AFF. BONH. 

1299 REM - PLACE PROF - 

Î-V? , P ^i NT (RND(0)*XM):PYP=INT(RND(0)*YM) 

1320 C0LQR E 2:PLÔT Y p)<p;fÇp^EM AFf" $£ !RE " 51 DEM CUELQUE CHQSE 
1330 RETURN 

1999 REM - INIT. MODE GRAPHIQUE - 

2000 GRAPHICS 3:XM=40-1:YM=20-1 

2020 RETU^N 1=10:C2=2:C3=4:SETC0L °R O.O.Cl:SETCOLUR 1,0,C2:SETC0L0R 2,0,C3:SETCOLOR 4,0.CO 

£999 REM --- ENTREE DES COMMANDES - 

5000 PX=0:PY=0:AA=STICK(0) 

^010 IF AA=14 THEN PY=-1:RETURN : REM SI DIR. HAUT 
r E ÎÜI!^ R9=l : RETURN : REM SI DIR. BAS 

§229 î F $=11 THEN PX=-1:RETURN : REM SI DIR GAUCHE 
59?0 $ = 7 I HEN PX=l! RETURN : REM SI DIR. DROITE 

5070*1 F AA=10 THEN P PY=^Î-PX- : | E ^?mp^ RE 2pS I c? I SVo DIA&3NALE HAUTE DROITE 

^ i-i îsi 

5100 RETURN : REM SI RIEN' :REM SI DIR * DIAGONALE BASSE GAUCHE 

5999 REM ---DEPLACEMENT BONHOMME - 

6000 GOSUB 5000:REM VOIR SI COMMANDE 

iftiS IC fov°od^P EX =0 THEN RETURN : REM SI AUCUN DEPLACEMENT 

Ïê THEN RETURN :REM 5150RT DE l " ecran 

6040 LOCATE DX,DY,Z :GOSUB 6500 

6050 THEN 6100: REM SI ON NE TOUCHE RIEN 

6075 REM'on TOUCHAS ! OBJET 6600:RETURN :REM S * TOUCHE PROF 

6090 ic:i;iè!^gî 0 Æig = ^: 0 gèggi UB ™0«'M-1.RETURN :REM SI JEU TERMINE 
6100 RETURN 

64?9 REM -AFFICHE BONHOMME- 

6500 COLOR 0:PLOT BX,BY:REM EFFACE ANCIEN BONH. 

6510 BX=DX:BY=DY: REM NOUVELLES COORD. 

6570 RETURN l!PL0T BX ' BY:REM AFF - B0NH 

6599 REM -AFFICHE PROF- 

6600 £9k°5 u 2 : P L 9 T p * p i p Y p : p EM EFF. ANCIEN PROF 
6610 PXP=PXP+PXX:PYP=PYP+PYY:REM NOUVELLES COORD. 

6M0 SSrn 2:PL ° T P * P ’ PYP;RE " Spp - ™ p 

SK PS.;:;?S flCEMENT ™ p - 

7M5 Ka.^ =2iG0SUB 6M>:RE ™ N = pe " SI attrape BONH. 

7020 IF PXP<BX THEN PXX=1 

7030 IF PXP>BX THEN PXX=-1 

7040 IF PYPCBY THEN PYY=1 

7050 IF PYP>BY THEN PYY=-1 

7055 REM TOUCHE-T-ON QUELQUE CHOSE 7 

7100 GOSUB^èùOoÎrEM*AFf7 > PRÔF : ' E Z=3 ™ EN PETU ™ :RE " 31 0N T0UCHE DBJp T 
7200 RETURN 

7999 REM -PLACE DES OBJETS- 

8000 OB=NG:FOR 1=1 TO NO 

8010 X=INT(RND(0)*XM):Y=INT(RND(0)*YM>. 

lolo HB^&PjfrîSS fffggf 81 IL DEJfl 0UELM ™= E 

8040 NEXT I 
8050 RETURN 

8999 REM -AFFICHE SCORE/RECORD- 

9000 IF SC>RC THEN RC=SC 

9010 PRINT CHRS(125);"SCORE= "; SC;" ■ RECORD= » ; RC 

VUoU KhI UKN 



















BBC-ELECTRON 



PUISSANCE 4 

Voici un logiciel de réflexion, 

où l'ordinateur se présente comme un adversaire de choix. 


J_ BUT DU JEU | 

Le but du jeu est extrêmement simple, le 
joueur gagnant est celui qui aligne quatre 


pions, soit horizontalement, soit verticale¬ 
ment. soit en diagonale. 


_ AU CLAVIER _J 

- Ce logiciel fonctionne, sans aucune 
adaptation, à la fois sur BBC et Electron. 


60 

CLS 


70 

DIM R(5,7),K(7),N(20),G(7),R(2) 


80 

FOR 1=1 TO 20 


90 

N( I > = 0 


100 

NEXT I 


110 

N<1) = .01:N<2>=.1:N<3)=10!N(4)=1000:N(6)=1:N<11)= 

100 

120 

IF R<1)=2 THEN 1780 


130 

B$= " 


140 

R<1)=0:R(2)=0:B=0 


150 

fil**"VOUS RUEZ GfiGNE LR PRRTIE" 


160 

R2$="J'AI GRGNE LR PRRTIE" 


170 

REM CHOIX DU 1er JOUEUR 


180 

MODE2 :COLOUR133 :CLS 


190 

FOR LI3= 1 TO 32 STEP2 : C0L0UR4 : LJ2=RND< 20 ): PR INTTAB< W2 , W3 );"*": COLOUR 1 : 

W2=RND(20): PRINTTRB( W2,W3); :NEXT 


200 

C0L0UR2: PRINTTRB(4,15)"PUISSANCE 4" 


210 

Wl=INKEY< 2000): MODE 1 


220 

> 

230 

PR INT TRB(2,10);"Le but du jeu est d'aligner 4 

pions":W=INKEY<2000 

GOSUB 1460 


240 

PRINT TRB< 3,20 ) ; "L'ou 1 ez-vous commencer ? (0/N)" 


250 

0$=GET$ 


260 

IF 0$="N" THEN 490 


270 

IF 0$="0" THEN 280 


280 

REM JEU DU JOUEUR 


290 

C=C + 1 


300 

IF C=36 THEN 1250 


310 

GOSUB 1630 


320 

PRINT TRB(6,20);"R vous de jouer" 


330 

PRINT TRB(3,23);"Donnez le No de co1onne":X=GET 


340 

IF X< 49 OR X >55 THEN 470 


350 

X=X-48 


360 

IF K(X)=5 THEN 430 


370 

GOSUB 1630 


380 

PRINT TRB(12,20);"OK en " 


390 

PRINT TRB(18,20);X 


400 

Y=5-K< X):R(Y,X)=1 


410 

UDU23,130,255,255,255,255.255,255,255,255 


420 

K(X)=K(X)+1:Z$=CHR$<130) 


430 

GOSUB 1700 
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44 0 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
74 0 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 

85 0 

86 0 
870 
880 
890 
900 
910 
920 
930 
94 0 
950 
960 
970 
980 
990 

1 000 
1010 
1 020 
1030 
104 0 
1 050 


iGOTO 330 
' : GOTO 330 


FOR Tl = 0 TO 5000 :NEXT 
IF G< X) = 1 THEN 1280 
GOTO 490 ■''*) 

PR INT TRB<3,20>;"Un nombre entre 1 et 7 S.U.P" 

PRINT TRB(3,20);"Colonne déjà comp1 ete.Rejouez 
REM JEU DE L'ORDINRTEUR 
C=C+1 

IF C=36 THEN 1250 
GOSUB 1630 

PRINT TRB(2,20);"Un instant.Je ref1echis“:FORW1=0TO4000:NEXTW1 

B—0 

M=0 

FOR X=1 TO 7 
GOSUB 730 
IF T< M THEN 610 
M=T 
XM=X 
NEXTX 
X=XM 

GOSUB 1630 

PRINT TRB(6,20);"Je joue en ";TRB(17,20)X 
V—5 — K <X) 

R< Y,X)=5 
K< X)=K< X) + 1 
Z$=CHR$<130) 

COLOUR l:GOSUB 1700 
B= 1 

GOSUB 730 

GOTO 280 

REM JEU 

PRINT TRB(4+<3*X-2),16); " . " 

G ( X ) = 0 : T= 0 
Y=5-K < X) 

IF Y<>0 THEN 800 
T=-1 

GOTO 1220 

IF Y=5 THEN 840 

S=0 

FOR J=1 TO 4 :S=S+R< J,X):NEXT J 
GOSUB 1660 
IF Y=1 THEN 880 
S=0 

FOR J=2 TO 5 :S=S+R(J,X):NEXT J 
GOSUB 1660 
IF X >4 THEN 970 
FOR D=1 TO X 
S=0 

FOR I=D TO D+3 
3=S+R< Y, I) 

NEXT I 
GOSUB 1660 
NEXT D 
GOTO 1040 
FOR D=X-3 TO 4 
S=Û 

FOR I=D TO D+3 
S=S+R<Y,I) 

NEXT I 
GOSUB 166@ 

NEXT D 
fl=X+Y 

IF Y=5 OR fl>8 OR R<5 THEN 1090 











1060 

S=0 


1070 

FORJ=1 TO 4 :I=R-J:S=S+FK J,I):NEXTJ 


1080 

GOSUB 1660 


1090 

IF Y=1 OR fl>9 OR fl< 6 THEN 1130 


1100 

3=0 


1110 

FORJ=2T05:I=fl-J:S=S+fl<J,I) :NEXTJ 


1 120 

GOSUB 1660 


1 130 

fl=X-Y 


1 140 

IF Y=5 OR fl>3 OR fl<0 THEN 1180 


1 150 

S=0 


1 160 

FORJ=1T04:I=fl+J :S=S+fl(J,I):NEXTJ 


1 170 

GOSUB 1660 


1 180 

IF Y=1 OR fl>2 OR fl<-l THEN 1220 


1190 

S=0 


1200 

FORJ = 2T05:I=fl+J:S=S+fl( J,I):NEXTJ 


1210 

GOSUB 1660 


1220 

RETURN 


1230 

REM COMMENTAIRES DU SCORE 


1240 

GOSUB 1630 


1250 

PR INT TflBC6,20);"Egalite,vous vous defendez 

bien":FORT1=0TO5000:NEXT 

Tl 



1260 

GOSUB 1460 


1270 

GOTO 280 


1280 

GOSUB 1630 


1290 

P R INT TflBC 2,20); "Uous avez gagne " : FORT1 = 0TO5000 : NEXTT1 

1300 

RC1)=R(1 ) + l 


1310 

IF RC 1 ) >2 THEN G'OSUB 1590 


1320 

IF R(1)>2 THEN 1780 


1330 

GOSUB 1460 


1340 

GOTO 490 


1350 

GOSUB 1630 


1360 

PR INT TAB(6,20);"Desoie,je joue en ";TflB<24, 

20 )X 

1370 

Z$=CHR*<T30> 


1380 

Y=5-K(X) 


1390 

COLOUR l:GOSUB 1700 


1400 

PRINT TflB( 10,22);"et je gagne"sFORT1 = 0TO5000 

:NEXTT1 

1410 

R(2)=R(2)+1 


1420 

IF RC 2)>2 THEN GOSUB 1590 


1430 

IF R<2>>2 THEN 1800 


1440 

GOSUB 1460 


1450 

GOTO 280 


1460 

REM AFFICHAGE DU JEU 


1470 

COLOUR 130 :COLOUR0. 


1480 

FOR J=1 TO 7:G(J)=0:K<J)=0:C=0 


1490 

FOR 1=1 TO 5 : ACI,J ) = 0:NEXT I 


1500 

NEXTJ 


1510 

CLS 


1520 

PRINT TflBC28,2);"PUISSANCE 4" 


1530 

0 

COLOUR1: MOUE 100,530:DRAW790,530:DRAW790,1010 

: DRflWl 00, 1010: DRflLIl 00,53 

1540 

MOUE205,530 :DRAW205, 1010 :MOUE300,530 :DRAW300 

,1010:MOUE400,530 :DRAW40 

0,1010 


1550 

MOUE495,530 :DRAW495, 1010:MOUE590,530 :DRAW590 

, 1010:M0UE685,530 :DRAW68 

5,1010 


1560 

MOUE 100,625 :DRAW790,625 :MOUE 10 0.720:DRRW790, 

720 : MOUE 10 0,815:DRAW790, 

8 15 : MOUE 10 0,910: DRAW79 0,910 


1570 

UDU17,0 : PRINT TflB C 4,17);"1 2 3 4 5 6 7 

II 

1580 

R$=STR$(R(1)):T$=STR$( RC 2 ) ) 


1590 

PRINT TflB(32,5);"SCORE" 


1600 

PRINT TflB(28,7);"JOUEUR :";TflBC37,7)R$ 


1610 

PRINT TflB(27,9); " BBC :";TflBC 37,9)T$ 


1620 

RETIJRN 
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1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

RUN 

1830 

1840 


REM EFFACEMENT 

FOR 1=19T026: PRINTTAB<1,I);B$:NEXTI 

RETURN 

IF 8=3 THEN G<X)=1 

IF S=15 AND B=0 THEN 1358 

T=T+N(S + 1) 

RETURN 

REM AFFICHAGE DES PIONS 

PR INTTAB<3*X+1,3*Y-2 >Z*;TAB< 3*X+2,3*Y-2>Z$ 

PR INTTAB<3*X + 1,3*Y-1)Z$;TAB<3*X+2,3*Y-1)Z$ 

PRINTTAB(1,16)B$ï FORT1 = 6TO5008:NEXTT1 
COLOUR 8:RETURN 
IF R$>T$ THEN 1780 
IF R$<T* THEN 1880 
IF R*=T* THEN 1460 
GOSUB 1630 

PR INTTAB(5,24)A1$:G0T0 1820 
GOSUB 1630 
PRINTTAB< 5,24 >A2$ 

PRINTTAB(7,26);"Voulez-vous rejouer ?<O/N)":W1$=GET$:IF W1$="0" THEN 

F'R INTTAB< 26,28 ) ; "AU REVOIR. . . " 

END 



MILLE-PATTES 

Aidez un mille-pattes à se nourrir, 
en mangeant un maximum de pommes. 



r - 

BUT DU JEU 

nez sur vos pas, c'est la mort certaine. 
Vous n'avez que trois vies, ne les gaspillez 
pas ! 

Il faut guider un petit mille-pattes vers des 

fruits afin qu'il grandisse. Mais évitez les 
rochers - indigestes - qui causeraient vo¬ 
tre perte. Plus vous mangez de pommes, 
plus le mille-pattes ralentit. Si vous reve- 

1_AU CLAVIER ! 

- Ce logiciel fonctionne sur les micro¬ 
ordinateurs BBC et Electron sans aucune 

10 

REM Ml 1 J Pat 


20 



30 

h ix=50 : o 1 d_h i‘/.= b i'/. 

40 

ON ERROR GOTO 60 


50 

HIMEM=&2E00: PROC 1nit 

60 

UDU 22,7 : PROCinstructions 

70 

REPERT 


80 

score%=0:1if eX=2 :screenX=1 

90 

REPEAT 


100 

UDU 19,CBORDX 

cf ondX; 0 ; 19,CMPX,cfondX; 0 

110 

PROCcolour on 


120 

PROCdat a :PROCwa11 :speedx=50*<9-screenx> 

130 

REPEAT 


140 

IF INKEY-98 

XX=-1 :YX=0:?HEADX=MLX 

150 

IF INKEY-67 

XX=1 : YX=8 :?HEADx=MR% 


adaptation. 

- Pour diriger le mille pattes utiliser les 
touches : 

* : = haut 

* / = bas 

* Z = gauche 

* X = droite 


80 




















160 IF INKEY-73 XX=0:YX = -l:?HEflDX=MU/i 

170 IF INKEY-105 Xx=0 : YY= 1 : ?HERDX=MDX 

180 ?TflBXX=< 7TRBX/Î ) +X>i : ?TRBYX= ( ?THBY5C ) +YY. 

190 co l/i=PO INT< ?TRBXX*32+ 16 , < 3 1-?TRBY% )*32 + 16 ) 

200 IF co1X=CFRUITx PROCfruit ELSE speedX=speedX-SPEED2x 

210 IF co lx RND 1 COLOUR CMPîCCflLL HIMEM: PROCwa i t < speedX > ELSE PRO 

Ccheck 


220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
d'ecr 


UNTIL 2LGTHX >=MRXLX 
IF colX<4 PROCnew_screen 
UNTIL li fey.CQ 
UNTIL FRLSE 

DEF PROCdat a : LOCRL iY. 

FOR i Y.= 0 TO MRXLX ï ?< TRBX5i+ iX)=15:?(TRBYX+i>i)=15: NEXT 

XY.= 1 : Yy.= 0 : ?LGTHX=2 : ?HERDX=MRx 

ENDPROC 

DEF PROC i nst ruct i ons : LOCRL i Y. 

CLS! CDU 23;10,32;0;0;0 

PR INT CHR$130;CHR$157;CHR$129;CHR$I41;TRB<16)"Mi 1'Pat" 
PR INT CHR$130;CHR*157;CHR$129;CHR$141;TRB< 16>“Mi 1'Pat" 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 


'CHR$134; 

CHR$134; 


Tu dois guider Mil'Pat" 
vers les fruits afin qu'il grandisse," 

CHR$134;"tout en évitant les rochers." 

CHR$134;" Plus il mange moins il va vite ; et il"; 

CHR$134;“doit en manger"CHR*131 ;MRXLX-2;CHR$134"pour changer 


an, 


410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
64 0 
650 

l> . 

5 


PRINT CHR$134;" Si tu le fais revenir sur lui-meme" 

PR INT CHR$134;"il mourra et il n'a que 3 vies ..." 

PRINT '"Pour revoir les instructions" 

PRINT TRB(10)"appuie sur la touche ESCRPE." 

PRINT 'CHR$133;"Touches de contrôle 

PRINT ' CHR$134 ; "Haut _"CHR$131" :" 

PRINT CHR$134 ; "Bas _"CHR*131V 

PRINT CHR$134; "Gauche _"CHR$131"Z" 

PRINT CHR$134; "Droite _*CHR*131 "X" 

PRINT 'TRB<6)"Rppuie sur SPRCE pour jouer. " ; :*FX15 
REPERT UNTIL GET=32 

WU 22,1, 23; 10,32;0;0;0; 17,128+CFOND*, 19, CFONDX, cf ondX ; 0 ; 

PROCco1our_on 
ENDPROC 

DEF PROCwa 1 1 : LOCRL iY. 

COLOUR CMPX 

PRINT. TRB(16,0);"Mi 1'Pat"; 

COLOUR CFRU ITY. '• PR INT TRB< 14,0 )CHR$MU% ; TRB( 24,0 )CHR$MUX ; 

COLOUR CBORDX 

PRINT TRB(2,2);STRING$(36,CHR$BD%); 

PRINT TRB(2,28); STRING$( 36,CHRÆBDX) ; 

FOR iY.=2 TO 27 : PR INT TflB< 2, iY. )CHR$BDX ; TRB< 37, iY. )CHR$BDY. : : NEXT 
SOUND 0,2,6,10 

PRINT TRBC3,30);"Score : ";TRB<15,30>;"Record : ";TRB< 28,30);"Reste 


660 PRINT TRB( 3,31 ); "Vies : - ;TRB< 15,31 ); "Ecrans "; 

670 COLOUR CMP% : PROCnurner i es 

680 PRINT TRB(11,31); STRINGS 1 ifeX,CHR$MUX); 

690 COLOUR CFRUITX: PR INT TRB<24,31); STRING$<screen%-1,CHR$FR*); 

700 COLOUR CBORDX 

710 FOR iY.= i TO screen>i*3 + 1 0 : PR INT TRB<RND<33)+3,RND<24)+2>CHR$RCX:NEXT 
720 COLOUR CFRU I TY. 

730 FOR iY.= 1 TO MRXLX*1.5 
740 SOUND 1,-10,RND<200),1 
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750 PR INT TRB< RND< 33 ) +3 , RND( 24 ) +2 )CHR$FRX 

760 NEXT 

770 CDU 17,2,31, 9TRBXX , 9TRBYX, MRX ,17,1 

780 PR INT TRB<<?TRBXX)+1 ,?TRBYX>; " Prêt PROCwait<7000> 

790 PR INT TRB<<?TABXX>+1,?TRBYX>;" " ; 

800 ENDPROC 
810 

820 DEF PROCnumerics 

830 IF scoreX>hiX hiX=scoreX 

840 PRINT TRB<ll,30);scoreX;TRB< 24,30 >; hix;TRB(36,30); MRXLX-?LGTHx" 

850 ENDPROC 
860 

870 DEF PROCfruit 

880 scoreX=scoreX+screenX:speedX=speedX+SPEEDX 

890 ?LGTHX=< 9LGTHX) +1 : SOUND 1,1,?LGTHX,3 

900 PROCnumerics 

910 ENDPROC 

920 

930 DEF PROCcheck 

940 SOUND 0,2,5,20 

950 ?LGTHX=MRXLX 

960 1 i f eX= 1 i f ex-1 : co 1X=4 

970 IF 1 i f eX< 0 PROCfin ELSE PROCwait<12000> 

980 ENDPROC 
990 

1000 DEF PROCfin 

1010 CDU 19,CMPx,cmpXE0R8;0;:*FX21 
1020 IF hiX>old_hix PROCt hemet une 

1030 PRINT TRB(0,l)"est MORT ; appuie sur SPRCE pour rejouer"; 

1040 REPERT UNTIL GET=32 
1050 ENDPROC 
1060 

1070 DEF PROCnew_screen 
1080 LOCAL ix 

1990 FOR iX=?LGTHX TO 1 STEP -1 

1100 PRINT TAB< ?<TABXX + iX ),?(TRBYX+ ix ) ) " 

1110 SOUND 1,ixDIC3-15,iX*3,2 
1120 PROCwait<1000) 

1130 NEXT 

1140 screenX=screenX+1 
1150 ENDPROC 
1 160 

1170 DEF PROCwait < tX) 

1180 IF tX>0 FOR tX = tX TO 0 STEP TRUE î NEXT 
1190 ENDPROC 
1200 

1210 DEF PROCco1our_on 

1220 CDU 12, 19,CBORDX,cbordX; 0 ; 19,CMPx,cmpX; 0 ; 19,CFRUITX,cfruitX; 0 ; 

1230 ENDPROC 

1240 

1250 DEF PROCinit 

1260 BDX=224 : MCX=225 : ML%=226 : MRX=227 : MUX=228 : MDx=229 : RCX=230: FRX=23 1 
1270 SPEEDX=12 :SPEED2X=2 

1280 CBORDX= 0 :CFRUITX=1 :CMPX=2:CF0NDX=3 

1290 cbordX=4 : cfruitX=Ü cmpX=0: cfondX=2 

1300 OSWRC-HX=&FFEE : LGTHx=&70: HERDX=&7 1 

1310 MRXLX=40:TABXX=HIMEM+&60:TRBYX=TRBXX+MRXLX+2 

1320 

1330 FOR IX = 0 TO 2 STEP 2îPX=HIMEM 
1340 COPT Iss 

1350 LDY LGTHX 

1360 LDR #31 :JSR OSLRCHX:LDR TRBXX,Y:JSR OSUJRCHx:LDfl TRBYX,Yï JSR OSWRCH 











X 

1370 

LDR #RSC< H "):JSR OSURCHX 


1380 

LDY #MAXLX 


1390 

.loopX 


1400 

LDR TRBXX-1,Y:STR TRBXX,Y 


1410 

LDR TRBYX-1,Y:STR TRBYX,Y 


1420 

DEY:BNE loopX . 


1430 

LDY #2 


1440 

.an ix 


1450 

•/ 

LDR #31:JSR OSWRCHx:LDR TRBXX,Y:JSR OSvJRCHX : LDR TRBYX,Y: 

JSR OSWRCH 

1460 

LDR #MCX:JSR ÛSWRCHX 


1470 

DEY:BNE aniX 


1480 

LDR #31: JSR OSWRCHx.'LDA TRBXx:JSR OSWRCHX : LDR TRBYX : JSR 

OSWRCHX 

1490 

LDR HEADX:JSR OSWRCHX 


1500 

1510 

RTS:DNEXT 


1520 

ENLELOPE 1,1,3,2,-2,6,6,6,100,0,0,-5,100,0 


1530 

ENLELOPE 2,1,0,0,0,0,0,0,127,0,0,-1,126,106 


1540 

LDU 23,BDX,&FF,&FF,&FF,&FF,&FF,&FF,&FF,&FF 


1550 

LD U 23 , MCX, 36,24,189, 126, 126, 189,24,36 


1560 

LDU 23,MUX,66,36,24,126,219,126,60,24 


1570 

LDU 23,MDX,24,60,126,219,126,24,36,66 


1580 

LDU 23,MRX, 16,57, 106,252,252,106,57,16 


1590 

LDU 23,MLX,8,156,86,63,63,86,156,8 


1600 

LD U 23,RCX&S ,& 1C,&3C,&3E,&7E,&7E,&FF,&FF 


1610 

LD U 23,FRX,97,38,24,126,255,255, 126,60 


1620 

*FX9,40 


1630 

*FX10,3 


1640 

*FX230,1 


1650 

1660 

1670 

ENDPROC 


1680 

DEF PROCthemetune LOCAL Q’/., Ry., Ny., Py. 


1690 

ENLEL0PE3,3,0,0,0,1,1,1,126,-4,0,-4,126,80 


1700 

Qx=0 : Rx=@ 


1710 

FOR NX=0 TO 60 STEP 4 


1720 

PX=48 + < NX + (NXMOD12=8))MOD16*4 


1730 

SOUND 1,3,PX,5:S0UND 2,3,GX,5 : SOUND 3,3,RX,5 


1740 

RX=QX:QX=Px 


1750 

NEXT 


1760 

ENDPROC 

■ 


i, 




SMOKKAR 

Vous luttez contre un adversaire terrible. 
Aux commandes d'un bolide, 
faites le meilleur score, 
il en va de votre vie. 



1_ BUT DU JEU _ 

En vous déplaçant dans une zone bien li¬ 

mitée par l'ordinateur, encerclez au plus 
vite le joueur adverse, grâce à la fumée 
que dégage le pot d'échappement de votre 


automobile. Seul le plus rapide gagnera, 
serez-vous à la hauteur ? _ 

| _ AU CLAVIER _ 

- Ce logiciel fonctionne sur BBC avec deux 
manettes de jeux. 


- Pour utiliser ce programme sur Electron 
les commandes de joystick sont rempla¬ 
cées par la saisie directe au clavier. 


50 ONERRORRUN 
60 PROCinit 
70 REPERT 
80 MODE0 
90 PROCmenu 
100 MODE 1 
110 REPERT 

120 PROCcadre:PROCdepart 

130 REPERT 

140 PROCdep1<1,FNpd1<1,2 > > 

150 PROCdepl(2,FNpdl<3,4>) 

160 UNTILPX<1>0RPX<2> 

170 I FX‘/.( 1 >=XX<2)RNDYX< 1 )=YX<2) :PX< 1 >=1 :PX<2>=2 

180 PROCcrash 

190 UNTILPtX<1>=80RPtX<2)=8 

200 UNTILFRLSE 

210 END 

220 

230 DEFFNpdK p’/., q5<> 

240 RX=ADVRLp%:BX=flDVflLqX 

250 =-<RX>BX)*2-(<65520-A;O>B%> 

26 0 

270 DEFPROCdepl< jX, t5î) 

280 fr/.=xy.< jy.) :bx=yx< jy.> : fty.=Ry.+DXx<. t iBy.=By.*DYy.(, t y.) 
290 C0L0UR3 s PRINTTRB< HX< jX)jX)>CHR$136; 

300 P‘/.(. jX)=P0INT(R^*32+4, <3 1-BX>*32+16> 

3 1 0 COLOURj X : PR INTTRBC RX , B'/. >T$< tX > ; 

320 HX< jX)=POS:jM:) = iv l POS:XX«: jX>=R5<: Yy.< jy.)=By. 

330 ENDPROC 
34 0 

350 DEFPROCcadre 
360 'v'DU 19,0,4 ; 0 ; 

370 UDU4:VDU23,1,0;0;0;0; 

380 YDU19,3,2;0;SC0L0UR131:CLS 
390 PROCscore<1,18):PROCscore<2,3> 

400 VDU23, 1,30,38,3s COLOUR128 :CLS 
410 UDU26:UDU19,3,6;0; 

420 ENDPROC 
430 


84 



























440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
64 0 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
300 
810 
820 
830 
84 0 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 


DEFPROCscore( j X, x'/. ) 

COLOURjX: YDU31 , 1 : PR INTPt>i< j ’/. ) 

ENDPROC 


DEFPROCdepart 
CDU19,1,1 ;e; 19,2,3; 0; 

X%< 1 )=30 : Y5i< 1 >=22:XX<2)=9:Y/£<2>=1 1 

COLOUR1 s PR INTTRB< 30,22 )T$( 2 ) ; :HX< 1 >=POS:CX< 1 >=CPOS 

C0L0UR2 : PR INTTRB( 9 , 1 1 >T$< 1); : HX< 2 )=POS : CX< 2 )=CPOS 

SOUND0 , 1,7,1 ! SOUND 1,0,0,0 : wïi= INKEY1 00 : SOUND 1,0, 100,0 

ENDPROC 


DEFPROCcrash 

CDU5 

IFP •/.(. 1 )SOUND0,2,6,5 : CDU 19 , 1 , 14 ; 0 ; : PtX<2 >=PtX< 2 ) + 1 
IFPx< 2 )SOUND0,2,5,5s CDU 19,2,1 1 ; 0; iPtyA 1 >=Pt ’/.(. 1 ) + l 
Fr/.= <Hy.(. 1 )-l )*32:BX=<32-CX< 1 ) >*32 
CX=(HX<2>-1 )*32:Dx:=<32-CX<2> )*32 
FOR I/i=4T09 
xy.=5*iy.:yy.=xy. 

FORJX=0TO5:Rx=RND<32) 

VDU29 , Fr/.-, BX-, :GC0L3, 1 : MOCEX/i-RX , Yy. : IFP y.( 1 )CDU 136 , 136 
CDU29,CX;D%; : GC0L3,2 ! MOCEXX, Y"/. +&y. : IFP*<2)CDU136, 136 
X‘/.=Xy. +Y-/.D IC2 : Y'/.=Yy.-Xy.D IC2 
NEXT 
NEXT 

wX=INKEY150 
ENDPROC 


DEFPROCmenu 

CDU 19,0,4; 0; 19, 1,3; 0 ; 

Pt •/.( 1 ) = 0:PtX<2> = 0 

ENDPROC 


DEFPROCinit 

REM- modifs hard - 

*FX9,6 
*FX10,3 

REM- enveloppes - 

ENCELOPE1,0,0,0,0,0,0,0,127,0,0,0,112,0 
ENCELOPE2,0,0,0,0,0,0,0, 127,0,0,-1 , 126,0 

REM- dessin des autos - 

CDU23,128,60,60,36,231,255,255,255,219 
CDU23,129,219,219,255,219,219,24,60,60 
CDU23,130,248,248,127,243,243,127,248,24S 
CDU23,131,31,31,196,255,255,196,31,31 
CDU23,132,31,31,254,207,207,254,31,31 

CDU23,133,248,248,35,255,255,35,248,248 
CDU23,134,219,255,255,255,231,36,60,60 
CDU23,135,60,60,24,219,219,255,219,219 
CDU23,136,0,56,116,100,58^50,28,0 

REM- pour imprimer les autos - 

DIMT$<3) 

T$< 0)=CHR$129+CHR$-8+CHR$10+CHR$128+CHR$8 
T$<1>=CHR$131+CHRS8+CHR$8+CHR$130+CHR$8 
T*<2 >=CHR$133+CHR$8+CHR$9+CHR$132+CHR$8 
T$(3)=CHR$135+CHR$8+CHR$11+CHR$134+CHR$8 

REM- table des déplacements - 

D IMDXX ( 3 ) : D I MD YX < 3 ) 

DXX( 0) = 0îDYX< 0)=-1 :DXX< 1 ) = 1 :DYy.( 1 ) = 0 
DX‘/.(. 2 )=- 1 : DYy. ( 2 ) = 0 : DXX( 3 ) = 0 : DYïi( 3 ) = 1 
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1050 

REM- réserves coordonnées - 


1060 

DIMX-/.C2) :DIMYXC2) :DIMHXC2) :DIMUXC2> :DIMPXC2> 


1070 

REM-divers- 


1080 

DIMP t X C 2 ) 


1090 

0X= 10 


1100 

ENDPROC 

■ 


PRISON 

Un terrible bandit s'est échappé 
d'une prison réservée aux condamnés à mort. 
C'est sa dernière chance de sauver sa tête, 
il est prêt à tout. 




“i t. 

i n 


• V- 

læ&L i mm 




BUT DU JEU 


Devenu gardien de prison, vous devez rat¬ 

traper un hors-la-loi et le remettre dans 
son cachot. Pour cela, enfermez-le de¬ 
dans. en construisant des murs indestruc¬ 
tibles. Vous pourrez circuler dans toutes 


les directions, mais d'une seule case à la 
fois. Le jeu est fini lorsqu'un des joueurs 
est enfermé dans un cachot. N'oubliez pas 
que vous jouez contre l'ordinateur. 


AU CLAVIER 


jouer - une lettre et un nombre - puis celle 
de la case à détruire qui vous permettra de 
bâtir le mur. 

- Ce logiciel fonctionne sans adaptation à 
la fois sur BBC et Electron. 


Entrez la nouvelle position des cases à 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

• 

110 

120 

/N) ?' 
130 
140 
150 
160 
170 
130 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
, 290 


REM PRISON 

DIM T<100),DC8),PC8) 

FOR 1=1 TO 100:T<I>=1 

IF I<12 OR I>89 THEN T<I>=9 
X=I-10*INTC1/10) 

IF X=0 OR X= 1 THEN TC.I)=9 
NEXT I 

DfiTR-1,9,-11,-10,1,-9,11,10 
FOR 1 = 1 TO 8 : RERD DCI):NEXT 

MQDE2:COLOUR134 :COLOUR1 :CLS: PRINTTRB<7, 14)"PRISON":UDU 
Wl=INKEY<2000) 

MODE 1 :COLOUR130:COLOUR1:CLS:PRINTTRBC5,15)"Cou 1ez-vous 


23 :3202 ; 0 ; 0 ; 0 


les réglés- CO 


REPERT:SOUND 1,-10,RND<255),10 :R$=INKEYÆC 0):UNTIL R$="0" OR R$-"N" 
IF R$="0" THEN GOSUB 530 

CLS:X2=INT<RND<80) + 11>: IF TCX2)>1 THEN 150 
T< X2)=2 s PJ=X2 

X3=INT<RNDC80) + 11): IF TCX3)>1 THEN 170 
T ( X3)=3:P0=X3:T0=0 
UDU 23;8202;0;0;0; 

PROCcaracteres 
PRQCterrain 

COLOUR0 : PRINTTRBC 5,25)"Mou 1ez-vous commencer CO/N) ? 

R=GET: IF R=79 THEN 420 ELSE IF R< >78 THEN 220 
REM JEU DU MONSTRE 
PRINTTRBC5,25 ) " 

PRINTTRBC8,25)"Patience,je réfléchis...!" 

X2=PJ:X3=P0 
Z=X3:N1=3 

PROCtest _____ 
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300 IF D=0 THEN PROCeff: PRINTTRBC5,25) n J'ai perdu en ";T0;" coups !":PRO 
Ctempo:PROCfin: END 

310 IF V<9 THEN PROCeff: PRINTTRB<5,25)"Je sens ma fin proche !":PROCtemp 

o 

320 T<D<D)+X3)=3:T(X3)=l:X=X3 
330 N=3:SOUND 1,-10,990,15 

340 E=2: PROCcase !X=X3+D< D)!PO=X:E=1 : PROCcase 

350 Z=X2!Nl=1 s PRINTTRBC5,25)"Que 11e case vais-je détruire ?" 

360 PROCtempo 
370 C0L0UR1 
380 PROCtest 
390 PROCeff 

400 T<X2+D<D))=5:N=5:X=X2+DCD) 

410 SOUND 1,-10,660,15:E=1îPROCcase 
420 D=0 

430 K=-1 :REPERT!K=K+1 s IF T<D<K)+X2>>1 THEN 450 
440 D=D +1 :X=D< K)+X2 
450 UNTIL K=8 

460 IF D=0 THEN COLOUR0! PRINTTRB<1,25)"J ' a i gagne en ";T0;" coups ! " :PRO 
Ctempo:PROCfin: END 

470 IF D<4 THEN COLOUR0: PRINTTRB(5,25)"Je sens votre fin proche ! ": PR 

OCtempo 

480 REM JEU DU JOUEUR 

490 IF D=1 THEN PRINTTRB<1,25)"Vous n'aviez plus qu'une case possible":P 
ROCtempo:PROCeff: GOTO 520 

500 COLOUR0:C$=STR$(D):Wl$="Vous avez ":W2$=" coups j ouab 1 es. . . " : R$=W1$+ 
C$+W2$ 

510 PROCj oueur 

520 T<X)=2:T<X2)=1:T0=T0+1:N=2:PJ=X 

530 E=1 :COLOUR1 :PROCcase:X=X2:E=2: PROCcase :COLOUR0 

540 R$="Quelle case detruisez-vous " 

550 PROCjoueur 

560 T<X)=5:N=5:E=1:COLOUR1 :PROCcase:COLOUR0 
570 GOTO 250 

580 COLOUR128 :C0LQUR2:CLS: PRINTTPB(12,2 >"REGLES DU JEU" 

590 PRINTTRBC6,5)"Vous etes le gardien de prison et vous devez remettre 
au cachot un affreuxbandit.Vous pouvez pour cela construire un mur que per 
sonne ne pourra désormais plus détruire." 

600 PRINT'" Les déplacements se feront dans toutes les directions mais 
d'une seule case a la fois.Vous donnerez la ligne, et la colonne pour i 
_ndiquer la case de votre choix (ex:C4)" 

610 PRINT'" Le jeu est fini lorsque l'un des deux antagonistes ne peut 
plus bouger.S'il ne vous reste plus qu'une case libre alors l'ordinateur 1 
a jouera pour vous." 

620 PRINT"'" RPPUYEZ SUR 'ESPRCE' POUR COMMENCER"sVDU 23 ; 8202 ; 0 ; 0 ; 0 ; 
630 R=GET:IF R<>32 THEN 630 ELSE COLOUR130 :RETURN 
640 STOP 

650 DEF PROCtempo 

660 i=-1 :REPERT:i=i + 1 :UNTIL i=800 

670 ENDPROC 

680 DEF PROCjoueur 

690 PROCef f:PRINTTRB< 5,25)R$;:PROCtempo 
700 INPUT C$ 

710 IF LEN<C$><>2 THEN PROCeff: PRINTTRB<8,25)"INCORRECT. . .":PROCt empo : PR 
OCef f: GOTO 690 

720 X$=LEFT$<C$,1) 

730 IF X$<"R" OR X$>"H" THEN PROCeff: PRINTTRBt5,25)"Ligne incorrecte..." 
:PROCt empo:PROCef f: GOTO 690 
740 Y*=RIGHT$<C*,1) 

750 IF Y$<"1" OR Y$>"8" THEN PROCeff: PRINTTRB<5,25>"Co1 orme ineorrecte.. 
. " :PROCtempo:PROCef.f :GOTO 690 
760 L=RSC<X$>-64:C=RSC(Y$)-47 


► 
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770 X=L*10+C 

7S0 IF T< X)< >1 THEN PROCeff: PRINTTRB'5,25)"Case déjà occupée...":PROCtem 
po s PROCef f! GOTO 690 

790 IF LEFT$<AS, IX XV" THEN 840 

800 I = 0:REPEflT! 1 = 1 + 1 : I-F ABS<X-X2)=D<I) THEN I=3:UNTIL I=8:G0T0 840 
810 UNTIL 1=8 

820 PROCeff ^ , 

830 PR INTTRB< 8,25) "DEPLACEMENT INTERDIT. . . " :W1=W1 + 1 :UNTIL Wl=208.'PROCef 

f: GOTO 690 
840 ENDPROC 
850 DEF PROCtest 

860 I=—1ïREPERT:1 = I + 1 s P<I > = 0 : UNTIL 1=8 

870 I=-l:REPERT: 1 = 1 + 1 : IF T<Z+D<I))>1 THEN 960 

880 J=-l:REPERT:J=J + 1 

390 IF D<I)=-D<J) OR T<Z+D<I)+D<J))>N1 THEN 940 

900 K=-1 !REPERT:K=K+1 

910 if D< K)=-D< J > OR T<Z+D<I)+D<J)+D<K))>1 THEN 930 

920 p<n=p<i> + i 

930 UNTIL K=8 

940 UNTIL J=S 

950 GOTO 970 

960 P<I>=-1 

970 UNTIL 1=8 

980 D=0:U=0 

990 I=-l :REPERT: 1 = 1 + 1 : IF P(IXV THEN 1010 
1000 D=I !V=P<I) 

1010 UNTIL 1=8 

1020 ENDPROC 

1030 DEF PROCcase 

1040 X=X-1 :U=INT(X/10):U=X-U*10 

1050 K=129-4*(N=3)-8*(N=5) . 

1060 IF E=2 THEN K=32 RND K+l=32 RND K+2=32 RND K+3=32 
1070 IF E=2 THEN K=32 

1080 PRINTTRB(10+<2*<J),4 + <2*U))CHR$K 
1090 IF E=2 THEN K=31 

1100 PRINTTABC10+<2*U+1),4+<2*U))CHR$<K+1> 

1110 IF E=2 THEN K=30 

1 120 PR INTTRB( 1 0 + < 2*L>> , 4 + ( 2*U+ 1 ) )CHR$<K+2> 

1130 IF E=2 THEN K=29 

1140 PR INTTRB<10+<2*U+1),4+<2*U+l))CHR$<K+3> 

1150 ENDPROC 
1160 DEF PROCeff 

1 170 1=23:REPERT:1=I + 1 : PRINTTAB< 0,I)“ 

":UNTIL 1=28 
1 130 ENDPROC 
1190 DEF PROCfin 
1200 PROCeff 

1210 PRINTTRB<1,25)"UQULEZ-UOUS REJOUER <0/N> ?";:R=GET:IF R-79 THEN RUN 
EL3E IF R<>78 THEN 1210 
1220 PRINTTRB(15,30)"RU REUOIR.: END 
1230 ENDPROC 
1240 DEF PROCterrain 

1250 GCOL0,3 :MGDE383,383 :DRRW895,383 :M0UE383,447 :DRAW895,447 :M0VE383,511: 
DRRW895,511:M0UE383,575 :DRAW895,575 :M0UE383,639 :DRRW895,639 :M0VE383,703 : DR 
AW895,703 :M0UE383,767 :DRRW895,767 

1260 M0UE447,320 :DRAW447,826 :M0UE511,320 :DRRW511,826 :M0VE575,320 :DRRW575, 
326 :M0UE639,320 :DRRW639,826 :MOUE703,320 :DRAW703,826 :M0UE767,320 :DRRW767,82 

6 :M0UE831,32 0 :DRRW831,826 __ 

1270 COLOUR0 : PR INTTRB< 12,3 ) " 1 2 3 4 5 6 7 8 " ; TRB<9,7 ) "R " ; TRB 1 ' 9,9 ) "B " ; TRB< 
9 , 1 1 ) "C " ; TRB( 9 , 13 ) "D " ; TRB< 9, 15 ) "E " ; TRB< 9 , 17)"F";TRB<9, 19 > "G "TRB< 9,2 1 ) "H " : C 
OLOUR1 

1280 N=5 _ 
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1290 

FOR 

1=1 TO 100:IF T<I)=9 THEN X=I :E=1 :PROCcase 


1300 

NEXT 


1310 

X=X2:N=2:E=1 : PROCcase 


1320 

X=X3:N=3:E=1 :COLOUR0:PROCcase:C0L0UR2 


1330 

ENDPROC 


1340 

DEF 

PROCcaract eres 


1350 

UDU 

23,129,15,31,31,63,63,127,99,127 


1360 

L>DU 

23,130,240,248,248,252,252,254,198,254 


1370 

UDU 

23,131,127,126,127,59,29,14,7,7 


1380 

UDU 

23,132,254, 126,254,220,184,112,224,224 


1390 

UDU 

23,133,64,96,60,63,119,49,127,63 


1400 

VDU 

23,134,2,6,60,252,238,140,254,252 


1410 

VDU 

23,135,252,61,255,56,115,55,31,21 


1420 

UDU 

23,136,63,60,255,28,206,236,248,168 


1430 

VDU 

23,137,0,123,123,0,239,239,0,123 


1440 

VDU 

23, 138,0,222,222,0,123,123,0,222 


1450 

VDU 

23,139,123,0,239,239,0,123,123,0 


1460 

L»DU 

23,140,222,0,123,123,0,222,222,0 


1470 

ENDPROC 

■ 



LES CHENILLES 

Une chenille folle, 

que dirige votre adversaire, vous menace. 
Faites vite, car elle essaye 
de vous encercler ! 



BUT DU JEU 


A l'aide de fils de fer barbelés, neutralisez 
au plus vite la chenille de votre adversaire. 
Bien sûr, si l'une des chenilles essaie de 
traverser le barbelé, c'est la mort qui l'at¬ 
tend au bout de cette aventure. Pour ga¬ 


gner il faut agir vite, en gênant le plus - Sur l ‘Électron, la gestion des joysticks 
possible l'adversaire. Tous «les coups» est remplacée par la saisie directe au cla- 
sont permis II! vier. 


AU CLAVIER 


- Ce logiciel nécessite l'utilisation de deux 
manettes de jeux sur le BBC. 


10 REM CHENILLES 
20 

30 *FX229, 1 

40 ON ERROR PROCerror 

50 MODE 1 

60 PROCinitia 1ise 

70 

80 REPERT 
98 PROCvit esse 
100 REPERT 
110 PROCst art 

120 REPERT 

130 DDX=FNpoint<DX, cdX) :PROCp1ot(DX, cdx> 

140 DGX=FNpoint < Gx,cgX >: PROCp 1 ot < GX,cgX > 

150 PROCwa i t (. Yx ) 

160 IF XX<GX)=XX<DX) AND YX< GX >=YX< Dx > DGX=TRUE : DDX=TRUE 

170 UNTIL DGX+DDX 

180 PROCexp 1 ose< CG '/., CDX ) : PROCwa i t(380) 

190 UNTIL SCx< Gy. )=MSX OR SCX<DX>=MSX 
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200 

UNTIL FflLSE 


210 



220 

DEF PR0Cplot< j'A, C’A) 


230 

COLOUR C’A : PR INT TAB< X’A(. j X > , Y’Ai j X ) ) ; C$< D’A< j ’A > ) ; 


240 

ENDPROC 


250 



260 

DEF FNpoint< j ’A, C’A) LOCAL F\’A,B’A 


270 

COLOUR C’A ! PR INT TAB< XX< j X ) , Y’A(. j ü > ) ; C$; 


280 

PROCpd1 (j’A) 


290 

X’A < j y. ) =X’A( j ’A ) +D X’A (D’A(j’A)) 


300 

Y’A( j ’A )=Y’A( j ‘A ) +DY’A( D’A( j ’A ) ) 


310 

=P0 INT < 16+32*Xy.(j’A),32*(32-Y’A(jy.)>-16> 


320 


330 

DEF PROCpd l<jJi> LOCAL R’A , B’A 


340 

A%=ADUAL<jX+jK+l ) :B%=ADOAL< j’A+j‘A+2) 


350 

D'A( j‘A)=-(R'A >B’A )*2-<<&FFF Q-R’A ) >B’A) 


360 

ENDPROC 


370 



380 

DEF PROCc ls( Y’A ) 


390 

ODU 19, cb'A, CF’A ; 0 ; 


400 

COLOUR 128 + cb/i : CLS 


410 

ODU 28,1, MYX- 1 , MXX- 1, Y’A 


420 

COLOUR cf'Ai CLS 


430 

ODU 26, 19 , cb’A, CB’A ; 0 ; 


440 

ENDPROC 


450 



460 

DEF PROCst art LOCAL i’A 


470 

PROCcls(3>:PR0Cscore 


480 

PROCco 1 ( CGJ<EOR 15 , CDîiEOR 15 ) 


490 

X’A( G’A )=5 : X‘A( D’A )=MX’A~X’A( G’A ) 


500 

Y'A ( GA ) = 1 0 : Y’A ( D'A ) = MY‘A+2-Y'A( G'A ) 


510 

REPEAT 


520 

PROCpd 1 ( G m /. ) JPROCp lot (.G’A, cg’A) 


530 

PROCpd 1 < Dx ) : PROCp 1 ot.< DX, cdx ) 


540 

UNTIL < ADOALC 0 ) AND3 )=3 


550 

SOUND 6.0010,-6,7,254 


560 

FOR i'A=& TO 255 STEP 15-OxD102 : SOUND 1,0,ix, 1 :NEXT 
PROCco 1 ( CG'A , CD'A ) 


570 


580 

SOUND 6.01,0,0,0 


590 

SOUND 6.10,2,0,255 


600 

ENDPROC 


610 



620 

DEF PROCwa i t(Tx ) ! T/ï=TIME + T*< : REPEAT UNTIL TIME >T’A ’■ ENDPROC 

630 



640 

DEF PROCvitesse LOCAL <J^,x‘A,y’A 


650 

PROCcls(1) 


66 0 

PROCco 1 < CG’A, CD’A ) 


670 

COLOUR 128 + cbîi : COLOUR cq’A 


680 

v$="CHENILLES - 


690 

xX=LEN< v$>: y’A=<.38-x’A)/2 


760 

PAINT TAB( y’A,2); STR ING$( x’A+2 , M$) 


710 

PR INT TAB <. y’A ,3) •, ; STR ING$< x’A , " " ) j M* 


720 

PR INT TAB< y’A ,4) ; M$; v$; M$ 


730 

PR INT TAB ( y % , 5 ) ; M$ ; STR I NG$< x'A , " " > ; M* 


740 

PR INT TAB( y’A, 6 ) ; STR ING*< xX+2 ,M$) 


750 

COLOUR cf'A : COLOUR cd’A 


760 

X‘A= 9 


770 

PAINT TAB( 3, x’A) "Le but du jeu consiste a empecher” 


780 

x'A—x’A +2 ! PR INT TAB( 3, x'A ) " vot re adversaire d'avancer. 

II 

790 

x‘A=x'A+2 ’• PR INT TAB< 3, x’A ) "Une partie se déroulé en 5 

P oints. " 

800 

x5i=xX+3:PRINT TABC 3, x'A ) "Que 11 e vitesse voulez—vous 

<1 /3 )?" 

810 

SOUND 6.0010,-6,3,255 
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829 *FX 21,0 

830 REPERT 

840 SOUND- &0011,-6,RND(256)-l,10 
850 CX=CRL<INKEY*10> 

860 U NT IL CX>0 R ND Cx< 4 

870 SOUND &0010,0,0,0 

880 ENCELOPE 1,4 , - 1 1 1 1,0,4-CX, 4-CX, 0 , 127, -2 , - 1, -1 , 126,80 

890 ENCELOPE 2,4,-4,127,0,1,1,4-CX,100,-20,0,0,126, 57 
900 CX=4*<3-CX> 

910 SCX< D/i ) = 0 : SCX( G'/. ) = 0 

920 ENDPROC 

930 

940 DEF PROCscore 

950 COLOUR cf X-128 : COLOUR cbX+128 

960 PRINT TRB< 10, 1 ) ; SCX< GX) ; TRBC30, 1 ) ; SCX< DX > ; 

970 COLOUR cfy.i COLOUR cbX 

980 ENDPROC 

990 

1000 DEF PROCexp 1 ose< CGX, CDX ) 

1010 SOUND &0010,1,2,80 

1020 IF DDX CDX=CDX EOR 15 : SCX< GX >=SCX< Gy. >-< DGX= 0 ) 

1030 IF DGX CGy.=CG’/. EOR 15 : SCX<T>X >=SCX< Gy. )-( DDX=0 ) 

1040 PROCco 1 ( CG ‘/., CDX ) 

1050 PROCscore 
1060 ENDPROC 
1070 

1080 DEF PROCco 1<CGX,CDX> 

1090 CDU 19, cgX, CGX ; 0 ; 19, cdx, CDX ; 0 ; 

1100 ENDPROC 
1110 

1120 DEF PROCin11ia 1ise 

1 130 DIM Xx< 1 ), Yx< 1 > ,D ’/.< 1 ) ,DXX<3>, DYX< 3 > , C$< 3 > ,SCX< 1 ), CH IFFRE$< 9,7 ) 

114 0 DXX< 0 > = 0 : DYX< 0)=-l :DXX< 1 )=1 :DYX< 1 >=0:DXX<2)=-1 :DYX(2> = 0:DXX(3) = 0 :DYx 
< 3 )= 1 

1150 Fx=32 : F$=CHR$< Fx ) 

1160 M$=CHR$128:C$=CHR$129 

1170 FOR lx=0 TO 3 ! C$< ïy. >=CHR$< RSC< C$)+1+IX)! NEXT 

1180 MXX=39:MYX=31 

1190 cfX=128 :cdX=1 :cgX=2:cbx=3 

1200 CFx=3 îCDX= 4:CGx=1 :CBX=2 

1210 DX=0:Gx=1 :MSX=5 

1220 *FX 20,0 

1230 *FX 16,4 

1240 #FX 9,6 

1250 *FX 10,6 

1260 CDU 23,RSC<M$>,&FF,&FF,&FF,&FF,&FF,&FF,&FF,&FF 
1270 CDU 23,RSC< CS),&24,& 18,&BD,&7E,&7E,&BD,& 18,&24 
1288 CDU 23,RSC<C$< 0)),&E7,&24,43C,&FF,&99,&99,&FF,&3C 
1290 CDU 23,RSC<C$<1)),&79,&49,&CF,&FC,&FC,&CF,&49,&79 
1300 CDU 23,RSC(C$<2)),&9E,&92,&F3,&3F,&3F,&F3,&92,&9E 
1310 CDU 23,RSC< C$< 3)),&3C,&FF,&99,&99,&FF,&3C,&24,&E7 
1320 ENCELOPE 2,129,1,0,0,2,0,0,120,-10,-1,-1,50,4 
1330 CDU 23,1,0;0;0;0; 19,cfX,CFX; 0 ; 19,cbX,CBX; 0 : 

1340 PROCco 1 < CGX , CDX )• 

1350 ENDPROC 
1360 

1370 DEF PROCerror 

1380 CDU 4, 12, 20, 23,1,1 ; 0; 0; 0; 

1390 *FX 9,25 
1400 *FX 10,25 

1410 REPORT:PRINT" at line ";ERL:END 
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COMMODORE 64 


VAMPIRES 


Trois vampires ne cessent de vous harceler 
dans le but de se repaître 
de vos globules, ô combien indispensables 
à votre survie. 

Heureusement, vous détenez le seul 
pistolet à honte de l'univers. 



BUT DU JEU 

matérialisé à l’écran. Quand les trois 
monstres se seront simultanément em- 

AU CLAVIER 

Afin de vous protéger des vampires qui 
vous sollicitent, faites-les rougir à laide 
de votre super-pistolet, dont le viseur est 

pourprés, vous récupérez alors votre li¬ 
quide vital. Méfiez-vous, les monstres re¬ 
prennent vite du poil de la bête. 

- Le viseur se déplace à l’aide des cur¬ 
seurs. 

- Tirez avec la barre d’espacement. 


1 

.2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 


i i 


ppÏ ht ~ ; rt=i : gosubss 

V-34296:Wb54276:T=54277:H=54273:L=54272:P0KE0+21,0 = DIMfl<3> 

VH= 100 '• W=200 ^ fl= 100 : B=R : C=A : D=A ; E=A '• F=R : Cl =6 : C2=6 • C3=6 

c$= " 1111 1 1 1 1 i 2 3 ou 4 

fl*s":i iiiiiiiinTr wous avez besoin de lunettes... " 
b$=": 111 111111 itttx-est de la pure folie, .adieu. ! " 

QUEL NIVEAU DE DIFFICULTE 
PRINT"3" : POKE33280# 0 : P0KE53281,0 
PRINTE* 

PRINTC* 

13 INPUT " ; P 

14 IF(P=10RP=20RP=30RP=4)THEN16 

15 PRINTfl* ; F0RT=1TO580:NEXTT : GOTO10 

16 IFP=1THENDU-300Û 

17 IFP=2THENDU=2000 

18 IFP=3THENDU=1000 

19 IFP=4THENDU=500: PRINTB* : FORT*1TO1000•NEXTT 
28 PR INT " 3" : PRINTV* : GOSUB113 : G0T042 

21 REM-COMMANDES- 

22 GETUi 

23 I FW$= " II" THENVH=VH-10 

24 IFW*="M"THENVH=VH+10 


25 I FW$= " n" THENW=W-10 


26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 


IFW*="S"THENW=VV+10 
IFTI-T1>DUTHENC1=6 
IFTI-T2>DUTHENC2=6 
IFTI-T3>DUTHENC3=6 
IFW*<>" "THENRETURN_ 

IF< (VH>A-8 ') AND(VH<A+8) >AND< <VV>B-12)AND'■ VVCB+8> >THENC 1 =2 ; T1 =TI 
IF < < VH>C-S)AND<VH<C+8> >HND< C W>D-12)ANDCW<D+8> >THENC2*2 ; T2=TI 
IFC (VH>E-8>ANDCVHCE+8) >AND< CVV>F-l2>RND<V\KF+8> )THENC3-2 • TJ-T I 
P0KE5328111 : F0RT=1T015 ; NEXTT ; P0KE53281.. 0 . 

FORN= 15TO0STEP-3 : FOKEV ■ N ; PÛKEW .■ 65 : POKET, 15 : POKEH, 57 : PüKEL.. 1 1 2 • NEftTN 
POKEW,0 ; POKET,0•RETURN 
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REM*******CORPS PROGRAMME********* 


REM-COULEUR- 

POKEÛ+39, 8 : POKEO+40, Cl : PÜKE0+41, Cl '■ PGKEO+42, C2 
PÜKEO+43,C2:PQKEO+44,C3:P0KE0+45,C3 
IF CC1=2 >AND<C2=2)AND<C3=2>THEH GOSUB113 

REM-LIMITES- 

IF V H >230T H E N V H=2 3 O 
IFVH<25THENVH=25 
IFVV<50THENW=50 
IFVV>220THENVV=220 
IFR>240THENR=240 
IFC>240THENC=240 
IFE>240THEHE=240 
IFE<50THENE=50 
IFC<50THENC=50 
IFRC50THENFN50 
IFB<100THENB=100 
IFD<1@0THEND=100 
IFF<100THENF=100 
IFB>180THEHB=180 
IFD>180THEND=180 
IFF>180THENF=180 

REM MOUVEMENT VAMPIRES============= 

FORM=0TO5^ ACM)=INT<CRND<0)*3)-1>*10 : NEXTM 

REM ACTUALISATION- 

R=50:S=S+1:IFS=2THENR=76:S=0 

A=A+A < 0 > = B=B+A Cl):C=C+A C2> : D=D+A(3> : E=E+A(4> : F=F+A<5);G0SUB22 

REM-COORDONNEES- 

POKEO ,VH : POKEQ+1,VV 

PÜKEÜ+2 , A ■ P0KE0+3 , B : P0KE0+4 , A : P0KE0+5 , B '• P0KE0+6 , C ; POKEQ+7 , D : P0KE0+8 , C 
P0KE0+9, Il : PÜKEO+10, E : POKEO+11 , F : POKEO+12, E : POKEO+13 , F 

REM-APPARITION- 

G0SUB22 : POKEO+21, R+1 

IFRT=1THENTA=TI 

RT=0 

REM =-TEMPS- 

TT= I NT C C TI -T A V60 > : PR I NT '* naU" ; TT ; " SECONDES " 

IFSÛ>=2018THEN115 

CS=CS+1: IFCS=6THEHCS=0:SÜ=SO+40:POKESO,160 :P0KES0+54272,0 
G0T042 

REM******************************* 

REM*******SPRITES***************** 

REM******************************* 

0=53248 :FORA=0TO7:PÜKE2Û40+A,192+A:NEXTA 
FORA=0TO508:READF:P0KE1228S+A,F=NEXTA:A=100 
Vl= ü*l»l»l»IHIIIIII»»»|»|l|»noANÜ" 

RETURH 

REM VISEUR » -*-*- * ' *-*■< • ■ *-* * * * < *-*■ * *-*- *•* ■ * ■ : * ■ 

DATA 0,112,0,0,32,0,0,32.0,0,32,0,0,32,0,0,32,0,0,32,0,0,32,0,0,32,0 
DATA128,0,8,255,143,248,123,0,8,0,32,0,0,32,0,0,32,0,0,32,0,0,32,0 
DATA 0,32,0,0,32,0,0,32,0,0,112,0,,, 

REM VAMPIRE A AILE HAUTE * - * *- < - < ■ * - * ■ < * - 

DATA ,128,0,2,96,0,12,56,68,56,94,108,244,15,255,224,7,85,192,3,57,128 
DA TA 0,144,0,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,, 

REM VAMPIRE A AILE BASSE * - * -* * < ■■* * * ■* 

DATA0,68,0,0,108,0,7,255,192,31,85,240,127,57,252,252,146,62,144,0,17 
DATA,,,,,,,,,,,,,,,, 




>>>>>>>>> 


98 DATA ,128,0,2,96,0,12,56,68,56,94,108,244,15,255,224,7,85,192,3,57,128 

99 DATA 0,144,0, , 

108 REM VAMPIRE B AILE BASSE * - * --** * *- * * * - 

101 DATA, 0,68,0,0,108,0,7,255,192,31,85,240,127,57,252,252,146,62,144,0,17, 

102 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 

103 REM VAMPIRE C AILE HAUTE * * - * - * ■ * ■ : - * * *■ 
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104 BATA,128,0,2,96,0,12,56,68,56,94,108,244,15,255,224,7,85,192,3,57,128 

105 DATA 0,144,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 

106 REM VAMPIRE C AILE BASSE c < < c c < o: ( 

107 -BATA,0,68,0,0,108,0,7,255,192,31,85,240,127,57,252,252,146,62,144,0,17, 

108 DATA,,,,,,,,,,,,,,,,,,,,,,,,,, 

109 REM SUPPLEMENTAI RE c t<<<<(<< < ■ ( 

110 BATA, 

111 BATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 

112 REM SP DU SANG 

113 SQ=2053:F0RI = 1TÜ24:SÜ=SO-40 : POKESO,160:P0KES0+54272,2:NEXTI:80=80-40 

114 C1=6 :C2=6:C3=6:RETURN 

115 REM SOUS PROG DE MORT##**#*##*#### 

116 P0KE0+21,0 : PR INT "3“ : ; 

117 PRINT"VOUS ETES MORT." : FORT=1TO1000 : NEXTT 

lis pr i nt"^MP iPMPiPiPMPMPiQPiiaiiaiiiiiiiaaiiiBaiiiiBii 11 

119 PRINT". . .APRES UNE LUTTE DE " ; TT; "SECONDES" : FORT=1TO4000 '• NEXTT : RT=1 : G0T05 



LEKID 


Sous vos yeux se déroule un duel 
sur lequel vous allez engager de grosses sommes en dollars. 
Tout irait bien si vous n'étiez pas l'un des protagonistes 
de ce face à face mortel. 

Méfiez-vous, les réactions de votre adversaire 
ne manqueront pas de vous donner des sueurs froides. 



BUT DU JEU 


Misez sans oublier que, plus le pari sera 
conséquent, moins vous aurez de balles 
dans votre chargeur. A vous d'être plus ra¬ 
pide que votre ombre. Pour calculer votre 


fortune, laissez faire le Commodore 64; il bas et haut, utilisez les curseurs, 

se chargera de tout. Bon courage et bons - Tirez à gauche avec «A» 


réflexes. 


AU CLAVIER 


Pour les déplacements droite, gauche. 


- Tirez à droite avec «D» 

- Tirez en ligne droite avec «S» 

- Accélérez avec «Shift Space» 

- Revenez à vitesse normale avec «Space». 


"LE KID" 

TILT COPYRIGHT 1984 


1 REM 

2 REM 

3 REM 

4 PRINT"a":GÛTO50 

5 PÛKEW,129:POKEA,15:RQKEH,40 :POKELL,200 :F0RL=15TO0STEP-1 :POKEVV,L:NEXTL 

6 PÛKEW, 0 : POKEA.» 0 : RETURN 

7 PÛKESO+C 2#0),X :POKESO+C 2#0)+1,V-V = P0KES0+< 2*1),X :PÛKESÛ+ < 2*1) +1,V-V : V*V- 1 V 

8 RETURN 

9 PÛKES0+ < 2*0 ) , X : PQKESO+ < 2#0 ) +1, V+V : P0KES0+<2# 1 >, X : PQKESO+ < 2*1 >+1, V+V : Y* Y+V 

10 RETURN 

11 POKESO+< 2#0 >,X+V:POKESO+ < 2#0>+1,V =POKESO+< 2*1>,X+V:PGKESO+< 2#1)+1,V :X=X+V 

12 RETURN 

13 P0KES0+< 2*0>,X-V :P0KES0+ < 2*0 > +1,V : PGKESO+<2*1),X-V :POKESO+< 2*1> +1,Y :X=X-V 

14 RETURN , „ 

15 NC=NC+1 :HR=1 +1NT < RNDC0)*RBS(ABS <X-XF))): RI = INT < RHB <1> *5) +1:1FHA>100THENHA=10 

16 XT=X:VT=V:PÛKESO+21,119:1FCU$="A"THEN25 

17 IFCU" S " THEN32 

18 FÛRVT=V+15T0VF-35STEP-35:XT=XT+INT CABS< <XT+XF-FNA<HA))/20)) 

19 IFXT>250THENPOKESÛ+21,115•G0T022 

20 PÛKESO+12*2 >,Xt:PÜKESO+< 2*2) +1,VT :NEXTVT 

21 IFXT>CXF-7)ANDXT<<XF+11)THENG0SUB5 : G0SUB48 : G0SUB91 

22 PÛKESO+21,115 = XT=X:ŸT=V:P0KESÛ+(2*2),XT:FOKESQ+ <2*2) +1,VT :GQSUB5_ 
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23 

24 

25 

26 
2 ? 
28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 


IFNC=NBTHENNC=0:G0SUB86' ' 

RETURN 

FÛRVT=V+15T0VF-35STEP-35:XT=XT-INT(ABS< <XT+XF-FNfl<Hfl))/20)) 

IFXT<10THENPGKE3O+21 , 115- G0T029 

P0KESO+( 2*2 ),XT:POKESO+(2*2) +1,VT :NEXTVT 

IFXT> C XF-7)ANDXT< <XF+11)THENG0SUB5:GÜSUB48:GGSUB91 

POKESO+21, 115 : XT=X : VT=V : PGKESO+ < 2*2 ), XT '■ POKESO+ < 2*2 ) +1, VT : G0SUB5 

IFNC=NBTHENNC=0:G0SUB86 

RETURN 

FORVT-V+15T0VFSTEP-15 

POKESÜ+(2*2),XT:POKESO+(2*2) +1,VT :NEXTVT 

IFXTXXF-7) RHBXT <(XF+11 )THENGGSUB5 : G0SUB48 : G0SUB91 

POKESO+21,115 :XT=X: VT=V:POKESO+(2*2 ),XT:POKESO+<2*2 ) +1,VT :GOS! IBS 

IFHC=NBTHEHNC=0:G03UB86 

RETURN 

XT=XF:VT=VF:PÜKES0+21,119 :FORVT=VF+10TOV+15STEP15 
XT=XT+15* < DI)*(<X-XF> X <V-VF > ) 

IFXT+15>250ORXT-15<10THENPOKESO+21,115:G0T043 
P0KE80+(2*2 ),XT+15:P0KES0+(2*2)+l,VT+15 : NEXTVT 

IFXT>X-10flNDXT<X+10ANDVT>VANDVTCV+25THENJT=1 :G0SUB5:G0SUB48:G0SUB91 
POKESO+21,115:XT=X:VT=V:P0KES0+<2*2>,XT:P0KES0+<2*2) + l,VT :G0SUB5:RETIIPN 
BF= INT<RND<2)*10) : SB=+1 : IFX<XFTHENSD=-1 
F=XF+(DF*SD):IFF>250ORF<10THENF=0:RETURN 

POKESO+(2*4),F :P0KES0+< 2*4 ) +1,?F = P0KES0+(2*5),F :P0KES0+< 2*5 ) +1,VF 

PÛKES0+<2*6),F :P0KES0+<2*6)+l,VF :XF=F:F=8:RETURN 

POKESÛ+21,123 :EX=X+5:EŸ=V+10:1FJT=0THENEX=XF:EV=VF 

POKE S0+(2*3),EX :P0KES0+C2*3)+1,EV:FORT=1TO1000:NEXTT:NC=0:RETURN 

DEFFNfi(Hfl > = INT <50* <HR/50> > 

S0=53248 : X=100 : V=200 : XT=200 : VT=200 : XF=175 ; VF=58 : POKE53280,0 '• P0KE53281 ■ 7 : V=1 
W=54296:W=54276:fi=54277:H=54273:LL=54272:NB=8:V=5: PP-1 
GOSUB 11‘8 : G0SUB77 : GÜSUB103 : PRIHT"ILS flRRI VENT 
FORN-0TO6 ; POKE2040+N,192+N:NEXTN 

FÜRSR=<64*(192+0))T0<64*<192+6)>STEP64:FORL=0TO62:RERBR ; POKESR+L,fl :NEXTL 

nextsr = pr i nt 1 '• ra" 

P0KES0+(2*4),XF:P0KES0+(2*4) + l,VF :PÜKES0+<2*5),XF:P0KES0+(2*5) + l,VF 
POKESO+(2*6),XF:PÜKESÛ+(2*6) +1,VF :POKESÜ+(2*2),X+10 :POKESÛ+(2*2) +1.V+10 
POKESO+(2*0),X :POKESO+(2*0) +1,V :POKESO+(2*1),X POKESO+(2*1) +1,V 
P0KES0+(2*3>,0 :PGKESÛ+(2*3)+l, 0 

POKESO+21,119:P0KES0+39,0 :PÛKESO+40,2 :P0KES0+41, O :POKESÜ+42,0 :P0KES0+43.1 

P0KES0+44,2 :P0KE3Û+45,0 :P0KES0+23,3 :PÜKESÛ+29,3 :P0KES0+27,252 

GETCU$ : I FCU$= "n" THENNV=5 : G0SIJB7 

IFCUi=CHR.$ ( 160 ) THENV=20 

IFCU$=CHR$(32)THENV=10 

IFCU#="W"THENV=5:G0SUB9 

IFCIJ$="M"THENGOSUBl 1 

I FCUf=" II" THENGOSUB13 

I FCU$= " fl 11 ORCU$= " S " ORCU$= " B " THENGOSUB 15 

IFV<179THENV=179 

IFV>196THENV=196 

IFX>232THENX=232 

IFX<24THENX=24 

ONRIG0SUB44,38,38,38,44 

IFRI>=2THENGQ8UB38 

CU$="":RI*1 : G0T063 

PR INT'7]" : PR I NT " WSBIBISIÜB] 11 : PRINTTRB(8) J" DECHARGEZ VOTRE PISTOLET . ««MSI" 
PRINT"SBI VOUS GAGNEZ UN DUEL AVEC : 11 •' PR INT" 1 BALLE LA PRIME SERA DE 1280*" 
PR INT "2 BALLES LA PRIME SERA DE 640$"PR INT "3 EALLES LA PRIME SERA DE 320$" 

PR INT 11 4 BALLES LA PRIME SERA DE 160$" : PRINT"5 BALLES LA PRIME SERA DE 80$" 

PRINT"6 BALLES LA PRIME SERA DE 40$":PRINT'V BALLES LA PRIME SERA DE 20$" 

PRINT"8 BALLES LA PRIME SERA DE 10$":PRINT"MH«««" 

PRINT" EN PERDANT UN DUEL VOUS PERDEZ AUSSI UNE PARTIE DE VOS GAINS" 

INF'UT " COMEI EN DE EALLES " ; NE* : IFVAL ( NE$ ) >80RVAL < NB* ) < 1THEHPRI NT " 1" ; : GOT084 
FORBR= 1T0VAL ( NB* ) : G0SUB5 : NEXTBR : NB=VAL (NB* > •' RETI IRN 
PR I NT " 3" ; " : PR INTTAB ( 8 ) ; " Zi PLUS DE MUNITIQNS ni" 

PRINTTAB(7); "MS VOUS ETES fl LA MERCI DE" 

PRINTTAB(6)J"K VOTRE ADVERSAIRE " 
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9 PRINTTAB<5);"M QUI PREND TOUTES VOS PRIMES 

90 PRINTTflB<8 >;"M S0VE2 PLUS VIGILRHT ! ":PR=0 ; GOSUB1 

91 P0KES0+21 , 0 : ND=ND+1 ■ IFJT=1THENPG=INT<ŒB/10)*PG;> : G0TU93 

92 PL= 10* ( 2t< 8-NB )> '■ PG= <PG+PL)#PR _ rClTklc 

qq pp T HT 11 T' ; " MfiMfifififi" : PR INTTRB < 14 ) ; " 3 SCORE HKWDllliMMiiNOS SH I NS 

94 PRIHT ,,r SWa GRACE AUX PRIMES QUE VOUS ONT RAPPORTES" : PR INT" BUilir 

95 PRINT" VOS "JND;" DUEL<S)" 

96 PRINT"fi SOIT :"; INT<PG/ND>;"$ PAR DUEL" 

PR=1 :GOSUB124 :G0SUB77 : GOSUB103 : JT=0 : 1FPG/ND>750THENDI = 1 

98 I FPG/NDO750ANDPG/ND>300THEND 1=0.9 

99 IFPG7ND<=300RNDPG7ND>200THEND1=0.8 
00 IFPG/ND<=200ANDPG/ND>100THEND1=0.7 
01 IFPG/NDO100THEND 1=0.6 
02 RETURN 

Eivsrsn 


1 ; PG ; 


ifnsrÆn " 

BPWiï BiST*! " "• PR INT" 

Br.a sn": print" 

Eia m 


Eia vbi 
B ia ïsîi 
ra«a ■ 


Eia 

Bia si" 


■nr 


■a 


pii 


a 

a 

a 

a. 


■a 

a 

as/ ai .a 

": PR I NTTflB <28 "H «a 
" :PRINTTRB<26>; "H.a 
S" =PRINTTRB<26), 

SH-a B" : PRINTTflB< 26)’; "H SIS 
1" :PRINTTRB<26>; "H Si 1 3 

_S" : PRINTTAB(26) ; "H SI B S* 


"1 SI B 


a 


a 


Bia" 

b i a 


SB-EM 


03 PRINT"IM":PRINT" 

04 PR INT" ‘ BPiMîl 
05 PR INT" BP«a ®ï 

06 PR INT" Eia 'Æ1 

07 PRINT'Tl Bia B 

108 PRINT'Tl 

109 PRINT"! 

110 PRINT'Tl 
ni PRiNTTRB-:29);"n.a 

112 PRINTTRB<27);"n.a 

113 PRINTTflB < 26 >; " ÎÜ SI B 

114 PR I NTTflB <26 > ; " BD Si B 

115 PRI NTTflB< 26!) J " 1H SI B 

116 PRINTTflB<26) ;"in SI B - 

117 PR I NTTflB C 33 > ; " HSBOIL": PRINTTflB < 33 >; " SB-Si" : RETURN 

111 " -PRINTTAB< 14) i "Si LE KIB " • PRINTTRBC 14> i 11 S 

1|? «I»T <«SR. DEPLACEMENT GAUCHE 

122 PRINT" aiCRSRB DEPLACEMENT BAS" : PRINT" StSHIHT ^RgRBDEPLflCEMENT HAUT" 

123 PRINT"» SRB TIR fl GAUCHE" : PRINT" 3KB TIR DROIT":PRINT" 8DB TIR fl DROITE 

124 FORPF=XFTO60STEP-1 : P0KES0+8, PF • POKESO+10,PF : PÜKESO+12,PF : NEXTPF ; XF=PF 

125 FORPL=XTO240 : PQKESO,PL : P0KE80+2,PL : NEXTF'L '• X=PL 

126 PRINT"fifi PRESSEZ 36PACEB POUR SUITE":PRINT" 3£B POUR FIN 

127 GETGE$ : IFGE$=""THEN127 

128 IF GE$0" "ANDGE$0"£"THEN127 

129 I FGE*=" £ " THENPRI NT " 73" ■ END 

130 RETURN 

131 BATA0,126,0,0.126,0,0,11,0,3,255,192,4,255,32,0,255,0,0,255,0,0,126,0,0,60 

132 DATA0,0,24,0,0,0,0,0,0,0,0,0,0,0,0,G, G,126,0,1,128,128,1,128,128,0,128,0 

133 DATA0,0,0,0,0,0,3,231,192 _ „ „ ™ 

134 BATA0,0,0,0,0,0,0,244,0,0,0,0,0,0,0,0,0,0,0,0,0,G' 0 ,G,U,^4,0,0,0,0, l,25o 

135 DATA128,1,255,128,1,126,128,1,126,128,1,0,128,0,126,0,0,126,0,0,102,0,0 

136 DATA102,0,0,102,0,0,0,0 _ ^ , _ . _ _ _ _ . 

137 DATA0,192,0,0, 192,0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0, 0, 0, 0 • 0,0^ 0- 1 0- 1 0 -O '0- 1 0 * ® 

138 DATAS,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0 __ „ 

139 DflTA0,0,0,0, 1,0, 0,0, 0,0, 1,0,0,3-'0 -4,2,0,3,22,32,1,206,64,0,127,0,2,127, U8 

140 DATAI,63,250,2,63,224,0,111,128,0,198,16,1,5,128,0,5,0,0,0,0,0,4,0,0,0,0 

142 DATfll^'0^0, 0,0,0,0,0,0, 0,0,0,153,0,0,255,0,0,231,0,0,126,0,8,36,0,0,24,0 

143 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,128,1,0,128,0,0,0,0,0,0,0,0,0,0,0,0 

144 DATA8, 8,0,0,0,0,0, 244, 0,0,8,0, 0,0,0,0, 0,0, 0,0, 0,0,0'0'0'24, 0 , 0 ,0,0,1,20-' 

145 DATA128,1,255,128,1,126,128,1,126,128,1,0,128,8,126,0,0,126,8,0,102,0,0 

146 DATA102,0,0, 102,0,0,0,0 , „ _ _ , „ r . _ 

147 DATA0,126,0,0,126,0,0,11,0,3,255,192,4,102,32,0,0,0,0,24,0,0,0,0,0,0,0,0,0 

148 DATA0J0,0,0,0,0,0,0,0,0,0,0,0,0,126,0,0,128,0,0,128,0,0,128,0,0,8,0,0,0,0 

149 DATAS,231,192 
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HELICRUISE 

Vous êtes à bord d'un hélicoptère 
et vous survolez un terrain accidenté où rôdent 
les dangereux missiles cruise de votre charmant adversaire 
qui ne rêve que d'une chose, rester seul en jeu. 



I_ BUT DU JEU _ 

Hélicruise se joue à deux. Le missile que 
vous transportez a une autonomie varia¬ 
ble. Il faut donc tenir compte de la topogra¬ 
phie des lieux si vous voulez toucher votre 


adversaire. D’autant plus, qu'en cas de 
mauvais calcul, il n'est pas exclu que vous 
deveniez votre propre cible Bon vol. 

_ - AU CLAVIER _ 

- «A» vous permettra d'avancer. 


- «T» vous permettra de tirer. 

- Les directions sont : 


Nord-Ouest : 

Q 

Sud-Est 

: C 

Ouest 

A 

Est 

: D 

Sud-Ouest 

Z 

Nord Est 

■: E 

Sud 

X 

Nord 

W 


1 PR I NT " 3" : CLR : RESTClRE : GÛSUB 83 

2 K=3 : T«=3 : UB=255 : VB= 120 : UN=60 : VN=VB 

3 HB$="naHELICO BLANC... 1 SSFWHVfiNCE OU ar*IR" 

4 DI$="!ÏEUELLE DIRECTION Q,W,E,D,C,X,Z,OU A ???" 

5 HN$="n 1 IHELIC 0 NOIR...! «AWANCE OU STTIIR" 

6 POKEV+21,3 

7 POKE 53280J 0 : P0KE53281 > 9 

Cl PPTkIT 11 STS IkUklBBkUMIkHIkaami 




Il • 

; 

il • 
t 

n 

13 FÛRA=0TÛ16 : PRINTAfJ 



14 NEXTA 





h • 
* 



"j 



n • 
; 


18 PR I NT " SB l»»»»*»BHi»tiP»l 

19 POKE2023,160 = P0KE56295,6 

20 FORA=0TO60 

21 B=INT(679*RND < 0 >) +1204 

22 POKE Bj 233 : POKEB+1 > 223 : PûKEB+54272* 7 ; PÛKEB+54273.. 0 

23 NEXTA 

24 IFT=3THEN50 

25 IFC=2THENC=0 

26 POKEV+21 , 3 : CP=0 : P=0 ; C=C+1 : REM REPARTITION NOIR BLANC 

27 PRINT"lllllimilimill" 

28 I FC=2THENDE$=HN$ : UM=UN '• VM=VN+10 

29 IFC=1THENBE$=HB$:UM=UB:VM=VB+10 

30 PRINTDE$j 

31 GETW$ : IFW$=""THEN31 

32 GOSUB 80 

33 IFC*2ANDR=2THENS=12 

34 IFC=2ANDR=0THENS=0 

35 IFC=1ANDQ=0THENS=0 

36 I FC= 1 ANDQ= 1 THENS= 1-2 

37 I FW$= 11 T 11 THENT=1 

38 IFWf="A"THENT=0 

39 PRINT"n";DI$ 

40 GETVÎ=IFV$=""THEN39 























54 BH=UB : BV=VB 

55 CH=UN:CV=VN 


41 IFV$="Q"THENI=-10 : J=-10 

42 IFVf="W"THEHI=0:.J=-10 

43 IFV$="E"THENI=+10 : J=-10 

44 IFVf="D"THENI=+10 : J=0 

45 IFV$="C"THENI=+10 : J=+10 

46 IFV$="X"THENI=0 : J=+10 
4? IFV$="Z"THENI=-10 : J=+10 

48 IFV$="R"THENI=-10:J=@ 

49 GOSUB80 ; REM EFFRCE 

50 IFT=1THENÜ=INT C RHB <1> *80 >:Q=O+20:K=7 

51 IFT=0THENü=10 

52 FClRH=0TOÜ 

53 RH=UM:RV=VM:IFS=12THENAH=UM+255 
IFQ=1THENBH=UB+255 
IFR=2THENCH=UN+255 

56 PR=1024+ < << RV-66>/8)#32 >+< C RH-25)X8) 

la » >•♦>-*>*>® : int<rhd< i >^>- 2 >«te 

53 IFC=20RT=1THENUE=UB-1 :VB=VB-J : 0=0 

60 UB=UB+I : VB-VB+J : UN=UN+I : VN=VN+J : UM=UI*1+I : VM=VI1+J 

61 IFUB>255THEH6=1 :UE-UB-255 

62 IFUN>255THENR=2:UN=UN-255 

63 IFUM>255THENS=12 :UM=UM-255 

64 IFÜ=1RNDUB<0THENUB*UB+255■Q=0 

65 IFR=2RNDUN<0THENUN=UN+255:R=0 

66 IFS=12flNDUM<0THENUM=UM+255:S=0 

67 IFS=0RNDUM<30THENI=-I 

68 IFVM<60ÛRVM>200THENJ=-J 

69 I FS>0RNIlUM>80THEN I=-1 

70 POKEV+0,UE :PÜKEV+1,VB:POKEV+2,UN :PÛKEV+3,VN 

71 PÜKEV+4,UM:POKEV+5,VM:POKEV+6,UM:POKEV+7, VM 

72 CP=CP+1■PÜKEV+16, Q+R+S ; PÛKEV+21,K 

Vt î|ï5 fl, 'f>BH-15ANDfiH<BH+15)flND<flV:>BV-15flNDflV<:BV+15)fiNBH>20THENU=10:GOTÛ103 
7 4 1F < RH>CH-15RNDAHCCH+15 ) AND ( RV>CV-15 ANDRV<:CV+15 ; RNDH>20THENU=9 : GOTO 103 
IFT=1THENCP=0 

76 IFT=30RCP=3THENGÛTÜ25 

77 IFT=0THENGOTÛ40 

78 NEXTH 

79 GÛT024 

80 FORE=1904TO1943:POKEB,160 :POKEB+54272,9■NEXTB 

81 PRINT"IIIIHIII||||||||||H|||||ai|| ll ||" ; RETURN 

83 V=53248 

84 FÜRfl=0TO3:PGKE2040+R,192+R:NEXTA 

85 FÛRB=0TÜ251:RERBE:PÛKE12288+B,E:NEXTB 

8b DATA ,,,,,,,,,,,, 255 j 255 j 128, 1, 192, 17,0, 128, 10 

87 DRTR 31 .• 255 , 255 , 63 , 255 ; 254 ,103, 255 , 209 , 65 , 252 , , 255, 248 , 

88 DRTR 255,248,,63,208,,15,192,,72,64,,127,248, 

89 DRTR ,,,,,,,,,,, 

30 DRTR j,,,,,,,,,,,,1,255,255,136,3,128,80,1, 

91 DRTR 255,255,248,127,255,252,136,255,6 
?2 DRTR ,63,2,,31,255,,31,255,,11,252 

,3,240,,2,18,,31,254,,,,,,,,,,,, 

,224,,,224,,,224,,,,,,,,,,,,,,,, 


,,,,,,,,,,,,,,,,,,, 
,,,,,,,,,,,,,j,,,,, 


93 DRTR 

94 DRTR 

95 DRTR 

96 DRTR 

97 DRTR ,128,16, ,64,24, 48, 56,61-, 224,8,63, 192,15,255, ,3,255, 

98 DRTR 224,242,224,63,212,255,15,248,240,3,240,192,255,219,192 

99 DRTR 31,255,192,1,252,224,1,127,240,2,245,248,7,254,125 

100 DRTR 15,254,7,15,126,2,28,99,,48,65,,224,65, 

101 PÛKEV+39,1 :PÜKEV+40,0 :POKEV+41,7 :PÜKEV+42,1 

102 RETURN 

103 F0RA=1TÛ5 : F'GKE V+21, U : FORT=0TO100 : N EXT T : PÜKEV+21,15-U : NEXTR : G0T01 


REfiBV. 








r 



STARFALL 


Découvrez l'ambiance des chaudes nuits étoilées. 
La soucoupe volante qui va et vient 
sans cesse parmi les météores, 
c'est vous !... 



A l'aide de votre vaisseau, interposez- 
vous entre les étoiles filantes afin d’empè- 
cher ces dernières de semer la panique 
dans le petit village isolé qui n'a plus 


BUT DU JEU 


qu’un seul espoir : votre intervention sal¬ 
vatrice. Vous pouvez éteindre les incen- 


- Déplacer la soucoupe volante à l’aide de 
vos curseurs habituels. 

- Faites-la changer de plan à l’aide de la 
barre. 


AU CLAVIER 


dies en soufflant dessus, grâce à vos 
puissants réacteurs. Attention, deux in¬ 
cendies sont envisageables, mais trois... 


10 REM 


STRRFRLL 


20 REM 
30 REM 
40 GOTO1590 

50 REM POSITIONS SOUCOUPE 
60 IFU>250THENU=255 
70 IFU<25THENU=25 
80 IFV<45THENU=45 
90 IFV>230THENV=230 

100 POKEW+6,U :PGKEW+7,V :POKEW+8,U = POKEW+9,V :RETURH 
110 REM PRSSflGE RVFINT SCENE fiUTORITRIRE 

120 FORLV=VTOLV-100STEP-5 = POKEW+6,U :POKEW+7,LV:POKEW+8,U :PÛKEW+9,LV : NEXTLV:HL=0 
130 POKEW+27,0 :F0RL=LVTÜVSTEP5 = POKEW+6,U :POKEW+7,L:POKEW+8,U :POKEW+9,L:NEXTL 
140 RETURN 

150 REM POSITIONNEMENT ET0ILE1 

160 El = INT(RND(4>i»i200>+40:Sl = INT(RND(5)*50>+40 

170 POKEVO, 15 : POKEMO ,129: POKEHF, 20 : POKEBF ,100: F'OKESO, 255 

180 POKEW+<2#0),E1:POKEW+<2*0)+l,Sl 

190 RC=PEEK(W+21> +210 :PÜKEW+21,RC : fl1 = 1 :RETURN 

200 REM POSITIONNEMENT ETOILE 2 

210 E2=INT < RND < 4 > #200 > +40 :S2=INT < RND<5>*50 >+40 

220 POKEVO,15:POKEMO,129+7:POKEHF+7,20:POKEBF+7,100:POKESÜ+7,255 

230 PQKEW+< 2# 1 ]), E2 :PÛKEW+ < 2#1) +1, S2 

240 ROPEEKCW+21)+2tl:PÜKEW+21,RC :R2=l:RETURH 

250 REM POSITIONNEMENT ETOILE 3 

260 £3*INT <RND <4 >#200 >+40 : S3=INT<RNB<5 > #50)+40 

270 POKEVO ,15:POKEMO ,129+14:P0KEHF+14,20:POKEBF+14,100:POKESO+14,255 

280 P0KEW+ C 2#2 > , E3 : POKEW+( 2#2 > +1, S3 

290 RC=PEEKC W+21> +212 :POKEW+21,RC :R3=1 :RETURN 

300 REM EVOLUTION ETOILE 1 

310 E1=E1+1 : IFE1>250THENE1=E1-1 

320 POKEMO,128 

330 S1=S1+R1:IFS1>=230THENI1 = 1 :01=220:X=X+1: GOTO 350 

340 POKEW+<2#0),El : POKEW+(2#0)+l,SI : RETURH 

350 fiC=PEEK< W+21)-210:POKEW+21,RC : S1=0 :RETURN 

360 REM EVOLUTION ETOILE 2 

370 E2=E2+1 •' IFE2>250THENE2=E2-1 

380 PÛKEMO+7,128 

390 S2=S2+R2 :1 FS2>=230THEN 12=1 : G2=225 : X=X+1 ’• GOTO 410 
400 PÛKEW+< 2#1),E2:PÜKEW+< 2#1) +1,S2:RETURN 
410 RC=PEEKCW+21)-2 tl:POKEW+21, RC = S2=0:RETURN 
420 REM EVOLUTION ETOILE 3 
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430 
440 
450 
460 
470 
480 
490 
500 
510 
528 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 


E3=E3+1:IFE3>250THENE3=E3-1 
POKEMÛ+14,128 

S3=S3+R3 ; IFS3>=230THENI3=1 : G3=215:X=X+1:GÛTO 470 
PÛKEW+ < 2*2 >, E3 •' PÛKEW+ < 2*2 > +1,S3: RETURN 
RC=PEEK < W+21 >-212 : POKEW+21, RC : S3=0 : RETURN 
REM RPPRRITIÜN FEU 1 


P0KEW+(2*5>,El 
REM APPARITION 
P0KEW+<2*6>,E2 
REM APPARITION 
P0KEW+<2*7>, E3 


POKEW+21,< PEEK < W+21> +215 >: 11=2 :RETURN 
POKEW+21,<PEEK(W+21>+216> : 12=2: RETURN 
POKEW+21, <PEEK<W+21>+2T7>: 13=2 : RETURN 


POKEW+ < 2*5> +1, G1 
FEU 2 

POKEW+ C 2*6> +1,G2 
FEU 3 

. - - / juo' PÜKEW+ <2*7> +1,G3• rurv 

REM******************************** 

REM 

REM CORPS DE PROGRAMME 

REM 

REM***********************#####^##^ 

U=127:V=30: VI=200 :K=24:C=1800:E=40:V0=54296:M0=54276:FH=54273:FB=54272 
S0=54278 : PQKE53280, 0 : PÛKE53281, 6 : PR INT "73" : GOSUB1230 

PÛKEW+45'7•POKEW+46 7 P0KEW+41 ' 1:P0KEW+42 '0 : POKEW+43,14 :POKEW+44,7 

POKEW+21,24: PÛKEW+ < 2*3),127 : POKEU+4&J-Kl-, 30 -PÛKEW+ < 2*4 >,127: POKEW+ < 8 > +1,30 

F0R1_= 1TÛ14STEP2 : ÛOSUB1020 : U»U+1 : V-V+L : GOSUB60 : NEXTL : GOSUB1090 : TD=T I 

KtM-COMMANDES- 

HE=INT<RND<1>*9>+l:R1=HE*2:R2-HE+9:R3=INT< <HE12>X5> 

GETW$ 

IFW$="ll"THENU=U-7-<4*X> 

IF W$= 11 kl" THENU=U+7+ < 4*X > 

IFW*=".TTHENV=V-7-< 4*X > 

IFW$="M"THENV=V+7+ C 4*X > 

IFW$=" "AHDV>160THENGOSUB110 :HZ=0:GOTO770 
IFV>=170ANDV<=180THENHZ=INT < RND(1> *8 >:GOTO770 
IFHZ>=4THENP0KEW+27,24 
IFH2<4ÜRV<180THENPOKEW+27,0 
GÜSUB60 

ÜNHEGOTO790,790,790,790,790,800,800,800 


IFI1=0RNDA1=0THENGOSUB160 
IFI2=0ANDA2=0THENGOSUB210 
IFI3=0ANDA3=0THENGOSUB260 
IFR1=1THENGGSUE 300 
IFA2=1THENGÜSUB 360 
IFR3=1THENGOSUB 420 


GOTO820 

GOTO820 

GOTO820 


IFI1=1THENA1=0 
IFI2=1THENA2=0 
IFI3=1THENR3=0 


GOSUB 480 
GOSUB 500 
_ - GOSUB 520 

IFI1=2THENP0KEW+21,PEEK(W+21>-215 
IFI2=2THENP0KEW+21,PEEK<W+21>-216 
IF13=2THENP0KEW+21,PEEK C W+21>-217 
IFPEEK < U+27 > OOTHEN950 

ï E 1 <20 RNDU- e i>0RNDG i-V<i 5THEMP0KEW+21, PEEK < W+21 >-215:11=0 

••MU-E2<20ANDU-E2> 0 RNBG2-V<15THENPOKEN+21 , PEEK<W+21 >-216 : 12=0 

J5THENP0KEW+21, PEEK<W+21 >-217 : !s=0 


GOSUB480 

GOSUB500 

GOSUB52 0 


IFHBS < U-E1><15ANDRBS<V-S1> <10THEN11 =0 
IF ABS U-E2 > < 15ANBRBS ( V-S2 > < 10THEN12=0 
IFABS < LI-E3 > < 1 SANDRES < V-S3 > < 10THEN13=0 
IFX=3THENG0T01710 
IFX=2GOTÜ670 
GOTÛ68 0 

REM DESSIN ETOILES***********:***** 
FÛRA=1TO60:E=INT <RND <ü > *4 > +1 
ONBGOTO1040,1850,106O,1070 
M="*. ": GOTO 1080 

A$="*.. . " :GOTO1080 

Hî='‘a .":gotoi080 

A$=" 

PRINTAfJ:NEXTA:RETURN 
REM****DESSIN DU VILLAGE************ 


A1=0 

A2=0 

A3=0 


GOSUB350 

GOSUB410 

GOSUB470 


X=X-1 

X=X-1 

x=x-1 
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1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 


PR I NT " 3" : PR I HT " ; 

PRINT"! I 

PRINT"! I 

PRINT"! I 

PR INT "■ ST 

PRINT"! 'm sr 

PRINT"! 3 19 B SI 

PRINT" SÜ 
PRINT" 2* 

RETURN 


Il • 
/ 

Il • 


* 

Il • 


REM******* SPRITES 


*********** 




>>>>>}> 


' -, ■ PÛKE2023,160 : PGKE56295, 0 


W=53248 : FORA=0TO7 : PÜKE2040+A, 192+ft : NEXTA 
FORfl=0TÜ508 : READF '■ PÛKE12288+A, F : NEXTfl : RETURN 
REM ETOILES 
EiRTR t>4, , j 224j , j b4< 

DATA 
DATA 
DATA 
DATA 
DATA 

REM SOUCOUPE NOIR ET COULEUR DEUX 

DATA , ,4,, ,139,128,4,5,240,8/5,240,128;11,255,128,11,255,4,223,224 
DATA ,,,,,,,,,,,,,,,,, 

DATA ,,24,,,118,,3,250,,7,250,,127,244,,127,244,, 3,32, 

DAT A 

REM INCENDIES TROIS 


,, 


,,, 


,,, 


,,,,,,,,,,,,,,,,,,,,,,,, 

64,,,224,,,64,,,,,,,,,,, 

,,,,,,,,,,,,,,,,,,,,,, 

64, ,,224,,,64,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 

,,,,,,,,,j,,,,,,,,,,, j 


DATA ,,,,,j,,,,,,,,,,,,,,,,,8,,1,4,128,2,12,80,4,140,200,37,12,208 
DATA 76,156,112,94,254,58,94,126,28,127,63,190,127,63,191 
DATA 127,159,255,63,255,254,15,255,248,0,126,0 

DATA ,,,,,,,,,,,,,,,,,,,,,,,8,,1,4,128,2,12,80,4,140,200,37,12,208 
DATA 76,156,112,94,254,58,94,126,28,127,63,190,127,63,191 
DATA 127,159,255,63,255,254,15,255,248,0,126,0 

DATA ,,,,,,,,,,,,,,,,,,,,,,,8,,1,4,128,2,12,80,4,140,200,37,12,208 
DATA 76,156,112,94,254,58,94,126,28,127,63,190,127,63,191 
DATA 127,159,255,63,255,254,15,255,248,0, 126,0 
REM TABLEAU D'AFFICHAGE 
PRINT"3" 


P0KE214,5 
P0KE214,6 
P0KE214,7• 

PÛKE214,15 
PÜKE214,16 
P0KE214,17 
PÛKE214,18 
P0KE214,20 
P0KE214,21 
RETURN 

REM AFFICHAGE ENTETE 
GOSUB1470 ; PRINT"!" 


PRINT : PRINTTAB<8>; "Si 
PRINT : PRINTTABC8); "3 
PRINT : PRINTTAB(8>; "Si 


STARFALL 


PRINT:PRINTTAB<8);"S 

II 

PRINT : PRINTTAB<8> ; "a 

II 

PRINT : PRINTTABC8) ; " a 

II 

PRINT : PRINTTAB(8>;"3 

II 

PRINT : PRINTT AB(8 > j"a 

II 

PRINT : PRINTTAB<8>J"a 

II 


P0KE214,16:PRINT 
P0KE214,17:PRINT 
PÛKE214,18:PRINT 
P0KE214,20:PRINT 
P0KE214,21 :PRINT 
P0KE214,22=PRINT 
P0KE214,12:PRINT 
GETSU$ : IFSU$=""THEN1680 
IFSU$OCHR$< 133)THEN1680 
PRINT"3":P0KE53269,0 : GOTO 
REM AFFICHAGE SCORE FINAL 
TF=TI : FF*INT<CTF-TD>760> 
PRINT"!"= GOSUB1470 


ESSAYEZ DE SAUVER 
LA VILLE DU FEU ! 


PRINTTAB(S) j "SI 
PRINTTABO) > " S) 

PRINTTAB<8);"S 
PRINTTABC7); " SI AVEC VOTRE SOUCOUPE 
PRINTTAB<7>;"S ETEIGNEZ LES INCENDIES 
PRINTTAB<7>J n a DETRUISEZ LES METEORES 
PRINTTAB(7>;"a PRESSEZ Fl POUR SUITE 


560 


PÛKE214,16 
P0KE214,17 
P0KE214,17 


PRINT 

PRINT 

PRINT 


PRINTTAB<8>; 1 
PRINTTABC8); 1 
PRINTTABt18>. 


a VOUS AVEZ TENU 
3 SECONDES 
"a"; FF 


101 














1770 P0KE214, 18:PRINT:PRINTTflB<8>;"3 ALLONS, PERSEVEREZ i " 

1780 PGKE214,19 ; PRINT : PRINTTftB<8); " S) PRESSEZ F7 POUR FIN " 

1790 PÛKE214,21 : PRINT:PRINTTAB<8>J "3 DU Fl POUR CONTINUER " 

1800 GETSU$:IFSU$=""THEN1800 

1810 IFSU$=CHR$(136)THEN PRINT"3" : END 

1820 IFSU$=CHR#<133)THEN CLR:GOTO10 

1830 GOTO1300 

REflDV. 


SHADOW 

Vous pilotez un Shadow III, 
et vous survolez une cité imaginaire 
dont les tours, hautes et basses, seront pour vous 
aubaine ou malchance. 




_ BUT DU JEU 

Faire le maximum de distance, en prenant 
soin d'éviter les hauts immeubles que 
vous identifiez, du dessus, grâce à leur 
ombre démesurée. Malheureusement 
vous découvrez vous-même que les appa¬ 
rences sont parfois trompeuses. Vous 


pourrez également en cas de force ma¬ 
jeure, passer en altitude supérieure, mais 
il vous en coûtera un surplus d'énergie et 
vous ne pourrez plus ravitailler le Shadow 
qu'en frôlant les immeubles les plus bas. 

~ AU CLAVIER 

- Pour aller à gauche ou à droite, utilisez 


les deux touches «CRSR». 

- Pourlampleurde vos déplacements, uti¬ 
lisez les touches «CRSR» et «Shift». 

- Les touches «Z» et «X» modifient votre al¬ 
titude. 


1 REM "SHADOW" 

2 REM TILT COPYRIGHT 1984 

3 REM 

4 PRINT" LT :POKE53280,0 :P0KE53281,11:GÜSUB75 

5 PR I NT " 

b INPUT"3Tîï QUANTITE DE KEROZENE ■ <MAXIMUM 2000 L> WSteMfi]" ; CP 

7 IFCR>2000THEN5 

8 CA=CR ; V=100 :CO=30 : SU=8:AA=0:DI=0 
9;G0SUB99 

10 PR I NT " :T : PR I NT " VOUS AVEZ PARCOURU" ; " SRI" ; DI l ; " «^METRES " 

11 IFDU>=DMTHENDM=DU 

12 PRlNT M :««î!Mf!ïi!M(!lf!M«ï!l« LE RECORD EST", '"ü " . "ü" "SHETRES" 

13 POKEE+21,3 :PQKE54296,4 

14 PRINT" 3* PRESSEZ LA BARRE POUR PARTIR "; 

15 PRINT" OU SnKS spOUR KEROZENE" 

16 ÜETVT: IFV*=""THEN16 

17 IF V$="K"THEN5 

18 GET V$ : IF VîO" "THEN 18 

19 U-255 ; PQKEE+16,0 

20 a$="s rmmm 

21 

22 F$=" ÏJ" 

23 GETW$ 

24 I FW$= " ül" THENU=U+20 

25 IFW$="M"THENU=U+5 

26 IFW$="THENU-U-5 

27 TFW$* " H" THENlJ=U-20 
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28 IFW$="Z"THENQ=0 

29 I FN'4 : = " X " THENQ-7 

30 IFUO0THEN19 

31 IF PEE K < E-i-16 ) =0flNDUC25ÎFIENll=25 

32 IFPEEK<E+16 > =3RNDU>60THENU=60 

33 G0SUB93 

34 IFUO255THENG0T036 : REM EXTENSION 
35' PÜKEE+16,7 : LMJ-255 

36 POKEE+23 , Q ; F'OKEE+29 .■ Q 

37 POKEE.- U : PGKEE+i .• V 

38 PÛKEE+2, U ; PQKEE+3, V 

39 POKEE+4,U :POKEE+5, V 

40 G0SUB93:GGSUB99 : G0SUB99 

41 8-0 

42 T=0 

43 fl= IHT<RNB< 1 )*3 ') 

44 B-IN.T<RMDa>*12) 

45 IF fl=0THENC$=fl$ 

46 IF R=1THENCf=B$ 

47 IF R=2THENC$-F$ 

48 '£=-8+1 

49 PR I NTTflB <. B > : F'R INTC$ 

50 IFSC3THEN48 

51 PR'INT'Trm" 

52 fl=IMT < RNB <1)*2 > 

53 B= I NT C RND ( 1 > 12 > +13 

54 IF Fl=0THEMC$=R$ 

55 IF' FI=1THENC$=B$ 

56 T=T+1 

57 PR I NTTFlB C B > : PR I NTC$ 

58 IFK3THEN56 

59 IFR*2THENPRINT 

60 RR=flfi+ 1 : BI=DI +10W: IFflfi=5THENPRINT" M "; HI 

61 IFQ=7THENCO=60 

62 IFQ=0THENCO=30 

63 CR=Cfi-CÜ 

64 IFRR=10THENPRINT"SH";CR 

65 IFflfl=10THENflfl=0 

66 IFCfl<=0THEN92 

67 I FCRO0THENCR=0 

68 FORTT=-2TÛ0 

69 UU=U: IFPEEK < E+16)=7THENUU=UU+255 

70 IFPEEK <1344+TT+1NT(Uü/8)> = 102RNDQ=0THEN105 

71 IFPEEK <1344+TT+1NT <Uü/8 >)*230RNDQ=0THENCR=CR+100 

72 IF Cfl>=2000THENCfl=2000 

73 NEXTTT 

74 GÜTÜ20 

75 FORR=0TÜ7 : PÜKE2040+A, 192+R '■ NEXTR 

76 FÛRN=0TÛ62 : RERDI : P0KE12238+N,I•NEXTN 

77 FORN=0TÜ62 : RERIlI : PÛKE12352+N, I : NEXTN 

78 FÛRN=0TÜ62:RERDI:P0KE12416+N,I :NEXTN 

79 E=53248 : F'OKEE+39,0 : PÛKEE+40,1 : POKEE+21,3 

80 DATA 0,56,0,0,76,0,63,207,248,0,79,208,0,79,144 

81 DATA 0,78,32,0,94,64,4,94,192,4,95,64,4,94,64 

82 DATA 0,94,0,0,92,0,0,76,0,0,76,0 

83 DATA 0,8,0,0,8,0,0,24,0,0,56,0,0,16,0,0,16,0,0,16,0 

84 DATA 0,0,0,0,48,0,0,48,0,31,176,32,31,176,96,15,177,192,7,161,128 

85 DATA 3,161,0,1,160,0,0,160,0,0,160,0,0,32,0,0,48,0,0,48,0,0,48,0 

86 DATA 0,48,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0 

87 DATA 128,16,0,64,24,48,56,61,224,8,63,192,15,255,0,3,255,0 

88 DATA 224,242,224,63,212,255,15,248,240,3,240,192,255,219,192,31,255,192 

89 DATA 1,252,224,1,127,240,3,245,248,7,254,125 











90 DATA 15,254,7,15,126,2,28,99,0,48,65,0,224,65,0 

91 RETURN 

92 V=100 : DF=5 : DG=3 

93 IFPEEK < E+16 >=7THENDF=-5 

94 U=U-(DF)•V=V+BG - 

95 POKEE,U :POKEE+1,V :POKEE+2, U 

96 POKEE+3,V :FOKEE+4,U :PQKEE+5,V 

97 IF <PEEK Œ+16 )=7ANDU>65> OR <PEEK<E+16>=0ANBU<40> THEN105 

98 G0TÛ94 

99 8=54272 

100 PÜKES+24, SU+Q 

101 POKES+6,128 

102 POKES,139 : PÜKES+1,4 

103 PÜKES+4,129 

104 RETURN 

105 POKEE+4,U ^ POKEE+5,V :P0KE54296,0 

106 POKEE+41,7 

107 POKEE+21,4 :FORT=1TÛ100 : NEXTT 

108 POKEE+41,1 

109 POKEE+41,7 : FÛRT=1TO100 :NEXTT 

110 POKEE+23,4 ^ FGRT=1TO100 :NEXT 

111 POKEE+23,0-DU=DI 

112 POKEE+21,0=FORT=1TÛ500:NEXT:00T08 



SOS 

Êtes-vous gourmet ou gourmand ? 

Difficile de trouver sa nourriture dans cet espace hostile 
ou règne en maître votre ennemi numéro 1. 

Il vous faudra pourtant, sous peine de mort, 
la découvrir et surtout, la posséder. 



- Passer sur le maximum d'éléments nu- et... rapide. - Faites RUN et suivez les instructions. 


1 REM **** SAUVE QUI PEUT **** 

2 REM - 

3 REM - 

4 REM 

6 REM - 

10 GOSUB 5300 : REM INIT. SOUS-PROG MACHINE DES TOUCHES 

15 GOSUB 10000:REH REGLES DU JEU 

20 RjC = 0 : REM INIT. RECORD 

50 GOSUB 1100:REM INIT. VARIABLES DE JEU 

60 GOSUB 1000:REM INIT. D'UNE MANCHE 

70 FJ = 0: REM INIT. PTEUR FIN DE JEU 

100 GOSUB 6000 : REM GESTION DU BONHOMME 

110 IF RND(1)<0.25 THEN GOSUB 6000 

120 GOSUB 7000 : REM GESTION DU PROF. 
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125 

130 

140 

150 

155 

156 
160 
170 
180 

299 

300 
320 
340 

999 

1000 
1020 
1030 
1040 

1050 

1060 

1099 

1100 
1110 
1120 

1199 

1200 
1210 
1220 

1299 

1300 
1310 
1320 
1330 

1999 

2000 
2010 
2020 

4999 

5000 
5010 
5120 
5130 
5140 
5180 
5300 
5310 
5320 
5330 

5399 

5400 
5410 
5420 

5999 

6000 
6010 
6020 
6030 
6035 
6040 
6050 
6060 
6065 
6070 
6080 
6100 

6499 

6500 


REM EFFETS DE POURSUITE 

IF RND <1)< 1/VI THEN GOSUB 7000 

IF FJ = 0 THEN 100:REM SI LA MANCHE CONTINUE... 

IF FJ = 2 THEN 300:REM SI PERDU... 

REM ON A GAGNE UNE MANCHE: 

REM RAJOUTE DES OBJETS ET AUGMENTE LA VITESSE DU PROF 
N0=N0+5:VI=VI-5 

IF VI<5 THEN VI=5 : REM VITESSE LIMITE 
GOTO 60:REM REJOUE UNE MANCHE 
REM - ON A PERDU 

PRINT T AB(7)5'POUR REJOUER, APPUYER SUR 'RETURN* ...* 
IF GETC013 THEN 320:REM ATTEND UN ‘RETURN 1 
GOTO 50 : REM RECOMMENCE UNE PARTIE 

REM - INITIALISATION - 

GOSUB 2000 : REM INIT. MODE GRAPHIQUE 
GOSUB 1200 : REM PLACE BONHOMME 
GOSUB 1300 : REM PLACE LE PROF 
GOSUB 8000 : REM PLACE LES OBJETS 

SC = 0:GOSUB 9000 : REM AFFICHE LES SCORES 
RETURN 

REM - INIT. VARIABLES DE JEU - 

VVI=50:VI=VVI:REM INIT. VITESSE DU PROF 
VN0=5:Nû=VN0:0B=NQ:REM NBRE D'OBJETS 
RETURN 

REM - PLACE BONHOMME - 

BX=INT(RND<1>*XM>:BY=INT<RND<1)*YM> 

DOT BX,BY Cl:REM AFF. BONH. 

RETURN 

REM-PLACE PROF - 

PXP = INT(RND<1>*XM): PYP=I NT<RND<1>*YM) 

IF SCRN(PXP,PYP)=C2 THEN 1300:REM SI DEJA QUELQUE CHOSE 

DOT PXP,PYP C2: REM AFF. LE PROF 

RETURN 

REM - INIT. MODE GRAPHIQUE - 

MODE 2A:XM=XMAX:YM=YMAX-19 
C0=0:C1=14:C2=3:C3=12:COLORG C0 Cl C2 C3 
RETURN 

REM - ENTREE DES COMMANDES - 

PX=0:PY=0 


CL = #4001 : CALLM #5000,CL:IF CLO0 THEN PY = 1:REM SI DIR HAUT 

CL = #4002 : CALLM t*5000,CL:IF CLO0 THEN PY=(-1):REM SI DIR BAS 

CL = #4004: CALLM #5000,CL:IF CLO0 THEN PX=(-1):REM SI DIR GAUCHE 

CL = #4008: CALLM «5000,CL:IF CLO0 THEN PX = 1:REM SSI DIR DROITE 

RETURN 

REM INIT. PROGRAMME MAC+IINE DES TOUCHE 
ADR = #5000: FOR 1=0 TO 28 
READ A : POKE ADR+I,A 
NEXT I :RETURN 

REM - SOUS-PROGRAMME MACHINE POUR LES TOUCHES - 

DATA HF5,#E5,#D5,ttC5,«ll, 3,0 , H19,#7E,#F3,«32,7,«FF,#3A 
DATA 1,#FF,«FB,H2B,HA6,«23,H77,W2B,W36,0 
DATA #C1,«D1,HE1,HF1,#C9 

REM - DEPLACEMENT DU BONHOMME - 

GOSUB 5000:REM VOIR SI COMMANDE 

IF PX = 0 AND PY = 0 THEN RETURN: REM SI RIEN 

IF (BX + PX < 0 OR BX + PX>XM) OR (BY + PY<0 OR BY + PY>YM) THEN RETURN 
DX=BX+PX:DY=BY+PY:REM COORD. DE DEPLACEMENT 
REM TOUCHE-T-ON UN QUELQUE CHOSE ? 

Z=SCRN(DX,DY):GOSUB 6500:REH AFF. BONH. 

IF Z=C0 THEN RETURN:REM SI TOUCHE RIEN 

IF Z = C2 THEN FJ = 2:G0SUB 6600 :RETURN: REM SI TOUCHE PROF 

REM ON TOUCHE UN OBJET: 

ÜB = OB-l:lF QB = 0 THEN SC = SC+100 :GOSUB 9000 : FJ=1:RETURN 

SC=SC+10:GOSUB 9000 

RETURN 

REM - AFFICHE BONHOMME - 

DOT BX, B Y C0-.REM EFFACE BONH. 
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6510 

6520 

6530 

6599 

6600 
6610 
6620 
6630 

6999 

7000 
7010 
7015 
7020 
7030 
7040 
7050 
7055 
7060 
7100 
7110 

7999 

8000 
8010 
8020 
8030 
8040 
8050 

8999 

9000 
9010 
9020 

9999 

10000 
10010 
10020 
10030 
10110 
10120 
10140 
10150 
10160 
10170 
10180 
10190 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10300 
10310 
10320 
10330 
10340 
10400 


bx=dx:by=dy:rem nouvelles coord. 

DOT BX,BY Cl : REM AFF. BONH. 

RETURN 

REM - AFFICHE LE PROF - 

DÛT PXP,PYP C0 
PXP=PXP+PXX:PYP=PYP+PYY 
DOT PXP.PYP C2 
RETURN 

REM - DEPLACEMENT DU PROF - 

PXX=0:PYY=0 

IF PXP = BX AND PYP = BY THEN FJ = 2:G0SUB 6600:RETURN 
REM SE RAPPROCHE DU BONH. 

IF PXP <BX THEN PXX=1 

IF PXP > BX THEN PXX = -1 

IF P Y P < B Y THEN PYY = 1 

IF PYP> BY THEN PYY = -1 

REM TOUCHE-T-ON QUELQUE CHOSE? 

IF SCRN(PXP+PXX,PYP+PYY)=C3 THEN RETURN 

GÜSUB 6600 : REM AFF. LE PROF 

RETURN 

REM - PLACE LES OBJETS - 

OB=NO:FOR 1=1 TO NO 

X=INT(RND(1)*XM):Y=INT(RND(1)*YM) 

IF SCRN(XrY)<>C0 THEN 8010 

DOT X.Y C3 

NEXT 

RETURN 

REM - AFFICHE SCÛRE/RECORD - 

IF SORC THEN RC = SC 

PRINT CHR$<12);TAB(10); , SCORE=*;SC; 1 *!TAB(30)J * RECORD :•; RC ! 1 

RETURN 

REM - REGLE DU JEU - 

PRINT CHRJ(12): REM EFFACE ECRAN 
PRINT 

PRINT T AB(30);'PROF !■ 

PRINT TAB ( 30 ) ; *-• 

PRINT 1 VOUS SOUVENEZ-VOUS DE VOTRE TENDRE ENFANCE ?■ 

MAIS SI, DANS LA COURS DE RECREATION ?• 

NON ?■ 

CELA NE FAIT RIEN, VOUS ALLEZ POUVOIR COMBLER 1 
CETTE LACUNE... 1 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


1 DANS LA COURS DE RECRE ( AT ION) , VOS BONBONS SONT 1 
1 TOMBES PAR TERRE (ILS SONT -BLEUS !>. 1 
1 HELAS, LA SONNERIE A RETENTI... 1 

1 ESSAYEZ DE RAMASSER TOUS VOS BONBONS (EN PASSANT* 

‘ DESSUS) AVANT QUE LE PROF VOUS ATTRAPE ET VOUS TIRE 1 
1 LES OREILLES (AIE ' ) 1 

* ATTENTION A SA RUSE: PARFOIS IL SE POSTE PRES 1 
1 D'UN BQnèCN ET II FAIT CELUI QUI EST TOUT GENTIL 1 
1 L'HYPOCRITE. 


PRINT 

PRINT ‘VOILA, BON COURAGE 1 

PRINT ‘NB: VOUS VOUS DEPLACEZ AVEC LES CURSEURS 1 
PRINT .‘PRINT ‘APPUYER SUR 'RETURN' POUR COMMENCER... 1 ! 
IF GETC013 THEN 10340 :P'EM ATTEND RETURN 
RETURN 
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SAUT EN LONGUEUR 

Les Jeux Européens vont débuter 
et vous y participez. 

Discipline : Le saut en longueur. 

Un peu d'échauffement, un départ lent, une accélération brutale, 
• un appel sans faille et vous voilà 
propulsé vers la gloire ou... 
dans les affres de la honte. 





_ BUT DU JEU _| 

Dès le début de la piste, faites une course 

bien calculée et calibrez essentiellement 
l’instant exact où vous devrez presser la 
touche de saut. Le moindre détail sera 
lourd de conséquences. Mais rien ne sert 


de parler, il faut courir à point. A vous... 


AU CLAVIER 


- Faites RUN 

- Vous êtes représenté par une étoile. 

- Pour courir : appuyez fréquemment sur 
la touche «Shift». 


- Sautez avant la flèche en appuyant sur 
«Espace». 

Cette, touche peut modifier l’angle de 
votre saut si vous appuyez trop longtemps 
dessus ou pas du tout. 


100 

GOSUB 8000 : REH Initialise l'écran et le programme 

130 

INPUT ‘Nom du 1er loueur ‘‘NM1$:PRINT 


140 

INF'UT ’ Nom du 2ei»e joueur ‘;NM2$:P0KE «75,32 


150 

GOSUB 1000:G$=NM1$:LG!=LG1!IPRINT CHR*(12> 


160 

IF LG2 1 > LG 1 ! THEN G$=NM2*: LG !=LG2! 


170 

IF LG2!=LG1 ! THEN PRINT ‘Egalité..’;:GOTO 190 


180 

PRINT ‘Le vainqueur en saut : *;G* 


190 

PRINT ‘Votre performance est de ‘ ; L G ! J ‘ métrés.* 


200 

POKE «75,95 


300 

END 


9 7 ? 

REM **** ESSAIS DES SAUTS DES JOUEURS **** 


1000 

LG1!=0:LG2!=0:FOR 1=1 TO 3:PRINT CHR$(12> 


1010 

CURSOR 0,22:PRINT ‘Joueur : *;NMli:PRINT ‘Essai 

no. ‘ r I 

1020 

PRINT ‘Performance : ‘ ï L G1 ! 


1030 

GOSUB 2500: GOSUB 2000:1F LG ! > LG 1 ! THEN LG1!=LG! 


1040 

GOSUB 1500 : REM attente clavier 


1050 

PRINT CHR$(12):CURSOR 0,22:PRINT ‘Joueur : ‘îNM2$ 

1060 

PRINT ‘Essai no.‘;I:PRINT ‘Performance :’f LG2! 


1070 

GOSUB 2500:GOSUB 2000:IF LG ! > LG2! THEN L G 2 != L G ! 


1080 

GOSUB 1500:REM attente clavier 


1090 

NEXT 


1100 

RETURN 


1499 

REM **** ATTENTE AU CLAVIER **** 


1500 

CURSOR 5,1:PR INT ‘Appuyer sur la touche C 


1510 

CL=«408:CALLM «5000,CL:IF CL=0 THEN 1510 


1520 

RETURN 


1999 

REM **#* UN ESSAI DU SAUT EN LONGUEUR **** 


2000 

YB = 7:XB = 59:CURSGR XB,YB:PRINT ‘ * ‘ ; : FL IP = 0: LT !=1 : 

LG ! =0 

2010 

CL=W40B0:CALLM «5000,CL:IF CL=0 THEN 2010 


2020 

CL = «2020: CALLM «5000,CL:IF CLO0 THEN 2200 


2030 

4 

CL = «4080 : CALLM «5000,CL:IF FLIP = 0 AND LT !> 1 AND 

CL < > 0 THEN LT ! =LT ! -2 : FLIP = 

2040 

LT!=LT!+0.25:IF CL = 0 THEN FLIF’ = 0 


2050 

LTCD = LTCD-1 : IF LTCD>0 THEN 2020 


2060 

LTCD = LT! : XB = XB-1 : CURSOR XB , YB : PRINT ■* ■; 


2065 

IF XB <5 THEN 2280 


2070 

F LIP = 1:GOTÛ 2020 
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2200 ANGLE=90 

2210 CURSOR 15rl8:ANGLE=ANGLE-3:PRINT ANGLE;:CL=#2020:CALLM «5000,CL:IF CLO0 A 
ND ANGLE)4 THEN 2210 

2220 T‘=0:DT!=8E-2:V0!=5 + 5#EXP(-ABS(LT! )/10):IF W0!>10 THEN V0!=10 

2230 A!=ANGLE*PI/180:VX f =V0 !*CÛS(A !): UY !=V0!*SIN(A !i:DX1 !=0 :DY1=0 
2240 T!=T!+DT!:DX!=VX!*T!:DY = 2*<-5*T ! *T!+UY ! *T!): IF DY<0 OR XB-DX!*2<0 THEN 227 

0 . 

2250 CURSOR XB-DX1 !*2,YB + DY1 : PR I NT 1 *;:CURSOR XB-DX!*2,YB + DY:PRINT ’*"; :DX1!=D 
X !:BY1 = DY:GOTO 2240 

2270 LG!=INT(DXl!*100)/100:LG!=LG!-((XB-22)/2) 

2280 CURSOR 15,19:1F XB<22 THEN PRINT •MORDULG ! =0 :RETURN 
2290 IF LG ! <0 THEN PRINT 1 FAUTE.. 1 : LG !=0 :RETURN 
2300 PRINT LG!;’ netres RETURN 

2499 REh **** AFFICHE LE SOL **** 

2500 FOR I=#B682 TO «B706 STEP 2:P0KE I,255:NEXT 
2510 CURSOR 3 r 6 : FOR 1 = 9 TO 2 STEP -1:PRINT Ii:NEXT 
2520 CURSOR 22,6:PRINT CHR$(94>;:RETURN 

7999 REN ##** INITIALISATION ECRAN **** 

8000 COLORT 0 12 5 14:F0R I = tt5000 TÜ #501C: READ A 
8010 POKE Ir A :NEXT:PRINT CHR$(12> 

8050 RETURN 

8100 DATA #F5,#E5,#D5,#C5,#11,3,0,#19,#7E,#F3,#32.7,#FF 
8110 DATA 83ArlrttFFr#FBr#2Bf#A6.#23rB77rtt2B»tt36»0*#ClrttDl 

8120 DATA #E1,#F1,#C9 i 


# INTERGALACTIQUE 


Décidément,l'espace n'est pas calme. 

Surtout lorsque les météores convergent vers vous 
et que vous ne disposez que d'un classique rayon laser pour vous défendre. 
Faites preuve de sagacité, de vivacité 
et n'oubliez pas d'emporter quelques litres de sang-froid. 

Vous éviterez ainsi une fin affreuse. 


BUT DU JEU 


Détruire vos assaillants minéraux qui fu¬ 
sent de toutes parts en utilisant un simple 



AU CLAVIER 


- Branchez le paddle 


- Le déplacement se fait à l'aide de la poi¬ 
gnée. 

- Tirez en appuyant sur le bouton. 


100 REM ****** ** INTER-GALACTIQUE ** POUR DAI ****** 

1000 CLEAR 10000:MODE4A:C1X=9:C2X=3:C3X=4:C4X=15:F1X=FREQ<33.0):F2X=FREQ<330.0):F3X=FREQ(1000.0>:F4X=FRE 

Q(3e «0.0> 

1010 POKE #75,32 

COLORT 9 15 0 0:COLORG C1X C2X C3X C4X:DIM XX(100.0),YX(100.0) 
AX=40:XXX=XMAX:YXX=YMAX:YYX=YXX*0.8:XYX=XXX-YYX 

PRINT CHR*<12):INPUT " Combien de lasers : 10,15 ou 20 ":BX:BBX=BX:IF BX=15 OR BX=20 OR BX=10 GOTO 1 


1020 

1030 

1045 
050 

1046 
1050 
1055 
1060 
1070 
1080 
1090 
1100 
1110 


GOTO 1045 

BY.=BB%:PRINT CHR*(12):CURSOR 20,2:PRINT "VOYAGE INTER GALACTIQUE" 
CV=0:COLORG C1X C2X CSX C4X:FILL 0,0 XXX,YXX C1X 
FOR DX=1 TO 5:EX=20+RND(XXX-30.0):FX=30+RND(YYX-25.0) 

FILL EX,FX EX+RND(10.0),FX+RND(5.0) 22:NEXT 
FOR MX=1 TO AX 

XX(MX)=RND(XXX):YX(MX)=RND(YYX) 

IF SCRN(XX(MX)»YX(MX))=C3X GOTO 1090 
DOT XX(MX),YX(MX) 2LNEXT 
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1120 XX=RND(XXX):YX=RND(YYX) 

y 1130 IF SCRN(XX,YX)=C2X OR SCRNŒX,YX)=C3X GOTO 1120 
V140 DOT XX,YX 23 

1150 PRINT CHRi(12):CURSOR 5,SPRINT " ";AX;" meteorites ":CURSOR 40,1:PRINT " ";BX;“ lasers " 
i\160 FOR GX=5 TO 1 STEP -1 

1170 CURSOR 15,3:PRINT "Départ dans ";GX; U secondes ”:SOUND 0 0 15 0 F1X:C0LQRG C1X C1X C3X C4X 
1172 WAIT TIME 2:SOUND 0 0 15 2 F2X:WAIT TIME 30--COLORG C1X C2X C3X C1X:NEXT 
1175 SOUND OFF 

1180 COLQRG C1X C2X C3X C4X:CURSOR 15,3:PRINT " PARTEZ ! ! 

1190 CURSOR 18,3:PRINT “ “;CX;" meteorites détruits “ 

1200 1F PEEK<#FD00> IAND #2000 THEN GOSUB 3215 
1280 IF CX<AX GOTO 1300 

1290 PRINT CHR*<12):CURS0R 30,2:PRINT “GAGNE !!“:WAIT TIME 100:AX=AX+1:GOTO 1050 

1300 P0X=PDL(0)/86+l:PlX=PDL(l)/86+l:UX=XX:VX=YX 

1310 ON P0X GOSUB 2400,2440,2480 

1320 IF YX<0 THEN YX=0:GOTO 1340 

1330 IF YX>YYX THEN YX=YYX 

1340 IF XX<0 THEN XX«0:GOTO 1360 

1350 IFXX>XXXTHENXX=XXX 

1360 IF SCRN(XX,YX)=C2X OR SCRN(XX,YX)=C3X THEN DOT XX,YX C4X:PRINT CHR*(12):CURS0R 20,2:PRINT “SCRATC 
H !!":WAIT TIME 100:AX=AX-1:GOTO 1050 

1370 SOUND 1 1 15 0 F3X:D0T XX,YX 23:IF UX=XX AND VX=YX THEN SOUND OFF :GOTO 1380 
1375 DOT UX,VX 20:SOUND OFF » 

1380 IF CX=AX GOTO 1290:FOR IX* 1 TO AX:IF PEEK(#FD00) IAND #2000 THEN GOSUB 3215 
1385 IF YX(IX)=YXX THEN NEXT:GOTO 1190 

1390 DOT XX(IX),YX(IX) 20:XX(IX)=XX(IX)+SGN(XX-XX(IX»:YX(IX)=YX(IX)+SGN(YX-YX(IX» 

1400 IF SCRN(XX(IX),YX(IX))=C1X THEN DOT XX(IX),YX<IX) C2X:NEXT:G0T0 1190 

1410 IF SCRN<XX(IX),YX(IX))*C4X THEN DOT XX,YX C2X:CURS0R 30,2:PR1NT "PERDU !!“:WAIT TIME 200:AX=AX-1:G 
OTO 1050 

1420 D0TXX(IX),YX(IX)C1X:YX(IX)=YXX:CX=CX+1:NEXT:G0T0 1190 

2400 ON P1X GOTO 2410,2420,2430 

2410 XX=XX-1:YX=YX-1:RETURN 

2420 XX=XX-1:RETURN 

2430 XX=XX-1:YX»YX+1:RETURN 

2440 ON P1X GOTO 2450,2460,2470 

2450 YX=YX-1:RETURN 

2460 RETURN 

2470 YX=YX+1:RETURN 

2480 ON P1X GOTO 2490,2500,2510 

2490 YX=YX-1:XX=XX+1:RETURN 

2500 XX=XX+1:RETURN 

2510 YX=YX+1:XX=XX+1:RETURN 

3215 IF BX=0 THEN RETURN 

3216 GOSUB 4400 
3240 FOR LX=1 TO AX 

3250 IF SCRN(XX(LX),YX(LX))=C4X THEN YX(LX)=YXX:CX=CX+1:S0UND 1 1 15 2 F4X:CURS0R 18,3:PRINT " "jCX;" “:S0 
UND OFF 
3260 NEXTLX 
3265 SOUND OFF 

3270 DRAW RX.SX XX,YX 20:DOT XX,YX 23:RETURN 

4230 IF P0X> 170.0 AND XX+YX<=XXX THEN RX=XX+YX:SX=0:RETURN 

4240 IF P0X>170 AND XX+YX>XXX THEN RX=XXX:SX=XX+YX-XXX:RETURN 

4250 IF P0X<85 AND XX>=YX THEN RX=XX-YX:SX=0:RETURN 

4260 IF P0X<85 AND YX>XX THEN RX=0'SX=YX-XX:RETURN 

4270 RX=XX:SX=0:RETURN 

4300 IF P0XM27 THEN RX=XXX:SX=YX:RETURN 

4310 RX=0:SX=Y%:RETURN 

4350 IF P0X>170 AND XXOXYX+YX THEN RX=XX+YYX-YX;SX=YYX:RETURN 
4360 IF P0X>170 AND XX>XYX+YX THEN RX=XXX-SX=YX+XXX-XX:RETURN 
4370 IF P0X<85 AND XX+YX>=YYX THEN RX=XX+YX-YYX:SX=YYX:RETURN 
4380 IF P0X<85 AND XX+YX<YYX THEN RX=0:SX=XX+YX:RETURN 
4390 RX=XX:SX=YYX:RETURN 

4400 P0X=PDL(0):PlX=PDL(l)/86+l:BX=BX-l:CURSOR 42,SPRINT BX;" " 

4405 FOR TYX=1 TO 2 

4410 SOUND 0 0 15 0 F3X:WAIT TIME 2 

4420 SOUND 0 0 15 2 F1X:WAIT TIME 2*TYX:IF TYX=8 GOTO 4450 
4430 NEXT 

4440 ON P1X GOSUB 4230,4300,4350 

4445 DRAW XX,YX RX.SX 23:TYX=8:GOTO 4410 

4450 RETURN i 
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LE PIGEON AGILE 

Vous n'êtes pas un oiseau de malheur et pourtant... 
Entre les plombs et vos petits qui crient famine, 
vous ne saurez plus où donner 




_ BUT DU JEU _J 

Se tenir le plus éloigné possible du canon 
fatal en tentant toutefois de récupérer les 
aliments nécessaires à la becquée de vos 


enfants qui vous attendent au nid. 

| AU CLAVIER ~ 

- Faites RUN pour démarrer le jeu 

- Vous vous déplacez à l aide des curseurs 


- Pour déposer les graines, appuyez sur 
«Espace». 


KREU4 

:look 


1 

REM *** CHASSE AU PIGEON **** 


2 

REM - 


3 

REM - 


4 

REM 


5 

REM - 


6 

REM 


100 

GOSUB 8000 :GOSUB 1000:GOSUB 2000:GOSUB 3000:GOSUB 4000 


113 

REM initialisations du jeu 


120 

CHANCE=16:REM paramétré de difficulté 


130 

GOSUB 2100 :GOSUB 1100 


131 

REM déplacement du chasseur et de l'oiseau 


140 

IF INT(RND(CHANCE))=0 THEN GOSUB 1100 


150 

IF PIGE> 0 THEN 130 


151 

REM si il y a encore des oiseaux vivants 


160 

MODE 0 : F’ R IN T CHR*(12>:POKE «75,95 


170 

IF F'T = 0 THEN PRINT 'Vous n'aimez les oiseaux tue dans votre 

assiette ! 1.. 1 

■.GOTO 

200 


180 

IF P T <10 THEN PRINT 'Vous avez vu 'les oiseaux' d'Hitchcok, 

ca se voit..." 

•.GOTO 

200 


190 

PRINT ‘BRAVO, voila un défenseur des passereaux !!..’ 


200 

POKE «75,95:END 


999 

REM *** INITIALISATION DU CHASSEUR *** 


1000 

TIRX=20:TIRY=2:XB=20:YB=1:DXB=0:RETURN 


1009 

REM *** GESTION DU CHASSSEUR ET DE SON TIR *** 


1100 

IF DXB=0 THEN IF RND(1>>0.5 THEN DXB=(XÜ-XB) 


1110 

CODE=0:X=XB:Y=YB:GOSUB 5000:XB=XB+SGN(DXB):DXB=DXB-SGN<DXB) 


1115 

IF XB=XO AND YB=YO THEN FIN=1 


1116 

C0DE=3:X=XB:Y=YB:GOSUB 5000 


1120 

IF INT(RND(10))=0 THEN 1150 


1130 

IF TIRY <20 THEN 1150 


1140 

code=0:x=tirx:.y=tiry:gosub 5000:tirx=xb:tiry=yb+i 


1145 

C0DE=2:X=TIRX:Y=TIRY:G0SUB 5000 


1150 

gosub 1300:cûde=0:x=tirx:y=.tiry:gosub 5000 


1160 

IF T I R Y > 2 0 OR TIRY>YÛ + 1 THEN TIRY = 20:RETURN 


1170 

TIRY = TIRY + i: IF I NTtRND<CHANCE/4 )>=0 THEN TIRX = TIRX + SGN(XO-TIRX) 

1200 

C0DE = 2:X = TIRX: Y = TIR Y : G 0 S U B 5000 


1210 

RETURN 


1299 

REM Resarde si l'oiseau est touche 


1300 

IF TIR X = XO AND TIRY = YO THEN FIN = 1 


1310 

RETURN 


1999 

REM INITIALISATION DE L'OISEAU »"» 


2000 

Xû=6:YÛ=20:FIN=0 
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2010 

RETURN 



2099 

REM GESTION DE L'OISEAU 



2100 

GQSUB 1300:CODE=0:X=XO:Y=YO:GOSUB 5000 



2 'l 10 

CL=«4001 : CALLM «502D,CL:IF CLO0 AND Y<20 THEN YO=YO+i 



2120 

CL=«4002 : C ALLM «502D,CL:IF CLO0 AND Y>1 THEN YO = YO-l 



2130 

CL=«4004 : CALLM «502D,CL:IF CLO0 AND X<43 THEN XO=XO+l 



2140 

CL=«4008 : CALLM «502D,CL:IF CLO0 AND X>6 THEN XO = XO-l 



2150 IF FIN=1 OR < XO = TIRX AND YO=TIRY ) OR (XO=XB AND YÛ = YB > 
IIP 2AAA 

THEN 

GOSUB 4200 :GOS 

2160 

C0DE=4:X=X0:Y=Y0:G0SUB 5000 



2170 

A = PEEK < ECRAN + X0*2+1 ) : IF A = 8 AND GRAIN = 0 AND Y0 = 1 THEN GRAIN = 

l:CODE=i: x=xqï 

Y = YO- 

l-.GOSUB 5 000 : GRD = GRD-1 



2180 
a i a A 

CL=«2020 : CALLM «502D,CL:IF X0 = 6 AND YO = 20 AND CLO0 AND 

G~RAIN = 1 THEN GOSUB 

“t X V K/ 

2190 

RETURN 



2999 

REM +++ MISE EN PLACE DU DECOR + + + 



3000 

PRINT CHR$(12) : COLORT 040 0:POKE «75.32 



3010 

FILL 296,0 309,177 14 



3020 

PAS=20:X=0:FOR 1=0 TO 40:DRAW 300-X,177+1 XMAX,177+1 5 



3030 

PAS=PAS-1:X=X+PAS:NEXT 



3040 

FILL 297,160 302,168 9 



3080 

Y = 0:FOR X = 0 TO 5 : CQDE = 1 : GOSUB 5000 : NEXT : GRD = 0 



3090 

FOR X = 6 TO 43 : CODE = 1 : IF INT ( RND ( 4 >) =0 THEN C0DE = 5:GRD=GRD+1 


3100 

GOSUB 5000 : NEXT 



3110 

RETURN 



3999 

REM ... INITIALISATION DU SCORE ET DES OISEAUX „ 



4000 

PIGE=5:PT=0:CURSOR 0,2:PRINT ‘Score : ‘îPT 



4010 

CURSOR 0 , 1 :PRINX ‘Nombre d'oiseaux : *;PIGE 



4020 

RETURN 



4099 

REM ... MISE A JOUR DES POINTS ... 



4100 

GRAIN=0:PT=PT+1:CURSOR 8,2:PRINT PT; 



4110 

IF GRD < 1 THEN PI GE = P IGE+1 : GOSUB 3080:l?OSUB 4010:IF CHANCE)4 

THEN CHANCE=CH 

ANCE- 

4 



4120 

RETURN 



4199 

REM ... MISE A JOUR DES PIGEONS ... 



4200 

PIGE=PIGE-1:CURSOR 20,1:PRINT PIGE:GRAIN=0 



4210 

IF GRD <1 THEN GOSUB 3080 



4220 

RETURN 



4999 

REM -- AFFICHAGE EN MODE GRAPHIQUE -- 



5000 

AFF=(CODE*16+TABLE)*65536+ECRAN+Y*720+X*2+1 



5010 

CALLM «5000,AFF:RETURN 



7999 

REM — INITIALISATION DES PROGRAMMES ASSEMBLEUR —- 



8000 

MODE 6A:C0L0RG 9 11 5 14 : ECRAN = PEEK<«88 ) +PEEK(«89 ) *256 



8010 

TABLE=«5100:FOR I=«S000 TO «5049:READ A:POKE I,A:NEXT 



8020 

FOR I = TABLE TO TABLE + 16*6-1 : READ A:POKE I,A:NEXT 



8030 

RETURN 



8099 

REM --- AFFICHAGE EN LANGAGE MACHINE --- 



8100 

DATA ttF5,«E5,«D5,«C5,ttll,3,0,«19,»5E,«2B,«56,«2B,«4E 



8110 

DATA «2B,«46,«26,8,»2E,2,«E5,«D5,«A,«12,3,«13,«2D 



8120 

DATA «C2,«15,H50,«Dl,tt21,«5A,0,«19,«EB,«El,«25,«C2,«13 



8130 

DATA «50,«C1,«D1,«E1,«F1,«C9 



8149 

REM - TESTE DES TOUCHES ENFONCES - 



8150 

DATA «F5,«E5,«D5,«C5,«11 , 3 , 0 , « 19 , «7E , «F3 , «32 , 7 , «FF,«3A 



8160 

DATA l,«FF,«FB,«2B,ttA6,«23,«77,«2B,tt36,0 



8170 

DATA «Cl,«D1,«E1,«F1,«C9 



8197 

REM TABLES DES CARACTERES 



8198 

REM - 



8199 

REM Caractère d'effacaSe 



8200 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 



8209 

REM Caractère du carre plein 



8210 

DATA 0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255 



8219 

REM Dessin du tir du bonhomme 



8220 

DATA 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16 



8229 

REM Dessin du bonhomme 



8230 

DATA 0,108,0,40,0,56,198,56,18,2,58,2,18,42,58,2 



8239 

REM Dessin de l'oiseau 



8240 

DATA 



8249 

REM Dessin du ver (pour l'oiseau) 



8250 

DATA 8,255,4,255,24,255,32,255,0,255,0,255,0,255,0,255 


■ 
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Ici, le terrain se rapproche 

davantage du plateau de flipper que du champ de bataille. 
Vous larguez des bombes 
mais ces dernières, pour une fois, 
vous rapportent des points. 



_ BUT DU JEU _ 

Détruire les rangées de points en lâchant 
un projectile afin d’atteindre les bonus se 


trouvant derrière ces rangées; et obtenir 
ainsi le record du monde. _ 

I AU CLAVIER ~1 

- Faites RUN 


Larguez votre bombe en appuyant sur 
Espace». 


j n a 

l V V 

GOSUB 3000 : REM INIT ECRAN 


110 

GOSUB 10000:REM INIT VARIABLES DU JEU 


120 

SC=0:REM INIT. SCORE 


200 

GOSUB 11000:REM INIT. VARIABLES D'UNE MANCHE 


210 

GOSUB 6000 : REM PLACE RANGEE DES POINTS 


220 

GOSUB 7000 : REM PLACE LES BONUS 


230 

TP = TP1 :GOSUB 9500 : REM INIT. TEMPS 


500 

GOSUB 9000 : REM AFF SCORE 


510 

GOSUB 4000 : REM GERE LE TRANSPORTEUR 


600 

GOSUB 5000 : REM GERE LE PAQUET 


700 

IF FJ = 0 THEN 500 


710 

IF FJ=2 THEN 800 


720 

TP1=TP1-200:IF TPI<500 THEN TP1=500 


730 

NBÛNUS1=NB0NUS1-1: IF NBONUS1=0 THEN NB0NUS1 = 1 


740 

PRINT CHRi(12):G0T0 200 


800 

PRINT •PERDU... 1 


810 

PRINT ■POUR REJOUER, APPUYER SUR 'RETURN'... 1 


820 

IF GETC013 THEN 820 


830 

GOTO 100 


996 

REM ---AFFICHE UN CARACTERE SUR ECRAN-- 


997 

REM - VARIABLE ‘CAR* DANS VALEUR DU CARACTERE A AFFICHER 


998 

REM - VARIABLE FD=1 : CARACTERE AFFICHE EN INVERSE 


999 

REM - VARIABLES X ET Y *. COORDONNEES DU CARACTERE 


1000 

IF < X < 0 OR X > XM ) OR (Y < 0 OR Y > YM) THEN PRINT * R*:RETURN: REM SI 

HORS ECRAN 

1010 

ECRAN=«BFE7-X*2-Y*134:REM CALCUL COORD. DANS ECRAN 


1020 

POKE ECRAN,CAR : REM AFFICHE CARACTERE 


1030 

IF FD=1 THEN FD = 0:POKE ECRAN-3,255 : REM SI INVERSE 


1040 

IF CAR = VI DE THEN POKE ECRAN-3,0 : REM SI CARACTERE VIDE, EFFACER 

L'INVERSE 

1050 

RETURN 


1997 

REM - DONNE LA VALEUR DE L'ECRAN DE CORRD. X ET Y- 


1998 

REM - X ET Y: COORD. OU PRENDRE VALEUR ECRAN 


1999 

REM - RESULTAT ECRAN DANS 'VXY 1 


2000 

VXY=PEEK<«BFE7-X*2-Y*134):RETURN 


2999 

REM - INITIALISE MODE ECRAN - 


3000 

COLORT 0 12 12 0 : MODE 0 


3010 

PRINT CHR$(12): REM EFFACE ECRAN 


3020 

XM=60-1:YM=24-1:REM VALEURS MAXIMALES DE L'ECRAN 


3030 

RETURN 


3999 

REM - DEPLACEMENT DU TRANSPORTEUR - 


4000 

TX = TX + l:IF TX > XM THEN TX = 0 


4010 

GOSUB 4100:REM AFFICHE TRANSPORTEUR 


4020 

RETURN 
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4099 REM - AFFICHAGE DU TRANSPORTEUR - 

4100 X=TX1:Y=TY1:CAR=VIDE:G0SUB 1000:REM EFFACE ANCIEN TRANSPORTEUR 
4110 IF PÛ=0 THEN GOSUB 5500:REM SI AFFICHER PAQUET SOUS TRANSPORTEUR 
4120 TX1=TX:TY1=TY:REH NOUVELLES COORD. 

4130 X=TXl:Y=TYl:CAR=TSP:GOSUB 1000 

4999 REM --- GESTION DU PAQUET --- 

5000 IF PQ=0 THEN GOSUB 5200:REM VOIR SI INIT 
5010 IF PO = 0 THEN RETURN-:REM SI INIT. 

5019 REM ON DEPLACE LE PAQUET: 

5020 DX=1 :DY=1 

5030 IF OX + DX> XM OR OY + DY> YM THEN GOSUB 5300:RETURN 
5040 OX=OX+DX:OY=OY+DY 

5050 X=OX:Y=OY:GOSUB 2000:REM PREND VALEUR EN OX,OY 

5060 IF VXY > 48 AND VXY<58 THEN GOSUB 5800:GOSUB 5500 :RETURN: REM SI ON TOUCHE UN 
CHIFFRE 

5070 IF VXY = BGNUS THEN GOSUB 5600 :RETURN 
5090 GOSUB 5500 : RETURN: REM AFF. PAQUET 

5199 REM INIT. LE PAQUET POUR DEPLACEMENT 

5200 AA = GETC: REM PRENDRE TOUCHE DU CLAVIER 
5210 IF AA = 0 THEN RETURN : REM SI RIEN 

5220 PO=l:REM NE PLUS AFFICHER PAQUET SOUS TRANSPORTEUR 
5230 OXl=TX:ûYl=TY+l:OX=TX:OY=TY+i 
5240 RETURN 

5299 REM ---PAQUET SORT DE L'ECRAN--- 

5300 GOSUB 5400:REM EFFACE PAQUET 

5310 PO=0:REM LE REMETTRE SOUS TRANSPORTEUR 
5320 RETURN 

5399 REM --- E F F A*C E SEULEMENT LE PAQUET- 

5400 X = OX:Y = OY:CAR = VIDE:GOSUB 1000 :RETURN 

5499 REM --- AFFICHAGE DU PAQUET --- 

5500 IF POO0 THEN 5550 

5505 REM IL EST PORTE PAR LE TRANSPORTEUR 

5510 OX=TX:OY=TY+l 

5545 REM EFFAÇAGE ANCIEN PAQUET: 

5550 X=QX1:Y=0Y1:CAR=VIDE:GÛSUB 1000 
5555 REM NOUVELLES COORDONNEES: 

5560 QX1=OX:OY1=OY 

5565 REM AFFICHAGE DU PAQUET 

5570 X=OXl:Y=OYl:CAR=PAQ:GOSUB 1000 

5580 RETURN 

5599 REM ON A TOUCHE LE BONUS 

5600 SC = SC + INT(RND(1)*3)* 100 :TP = TP + 2:GOSUB 9000:REM AFFICHE SCORE 
5610 FJ=1 :REM FIN DE JEU NI 

5620 RETURN 

5799 REM ON A TOUCHE DES POINTS 

5800 PS=(VXY-48)*10:TP=TP-PS:SC=SC+PS:GOSUB 9000:REM AFFICHE SCORE 
5815 REM VOIR SI OBJET CONTINUE SA COURSE 

5820 IF RND( 1 )<0.4 THEN GOSUB 5300 
5830 RETURN 

5999 REM - PLACE LES RANGEES DE POINTS - 

6000 FOR Y=DEBRA TO DEBRA+NRA-1 
6010 FOR X=0 TO XM 

6020 CAR=RND<1)*9+49:FD=l:GOSUB 1000:REM AFFICHE UN POINT 
.6030 NEXT X:NEXT Y 
6040 RETURN 

6999 REM --- PLACE BONUS --- 

7000 Y = FINLIG 

7010 FOR 1=1 TO NBONUS1 

7020 X=INT(RND(1>*<XM-2*LIM))+LIM 

7030 GOSUB 2000 : IF VXYOVIDE THEN 7020 

7040 CAR = BQNUS:GOSUB 1000 : REM AFFICHE BONUS 

7050 NEXT I 

7060 RETURN 

8999 REM - AFFICHE LES POINTS - 

9000 TP=TP-2 

9010 IF SORC THEN RC = SC:CURSOR 13,23:PRINT RC; 1 
9020 CURSOR 29f 23:F'RINT SCî* 

. 9030 CURSQR 47,23:PRINT TP;' 
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9040 

IF TP <0 THEN F J=2 


9050 

RETURN 


9499 

REM - AFFICHE SCORE ET RECORD - 


9500 

CURSOR 5.23 : PR INT ■RECORD : 1 ; RC ; * 


9510 

CURSOR 23,23:PRINT 1 SCORE=": SC J’ 


9520 

CURSOR 40.23:PRINT ■TEMPS= 1 îTP ; * 


9530 

RETURN 


9998 

REM - INITIALISATION DES VARIABLES DU JEU - 


9999 

REM VALEURS GRAPHIQUES: 


10000 

TSP=24:REM TRANPORTEUR 


10010 

F'AQ=1 : REM OBJET 


10030 

B0NUS = 29: REM SUPER BONUS 


10040 

VIDE = 32: REM CARACTERE ESPACt 


10050 

TYB=12:TYB1=TYB:REM HAUTEUR MINI. DU TRANSPORTEUR 


10060 

TYH=3:TYH1=TYH:REM HAUTEUR nAXI. DU TRANSPORTEUR 


10080 

NRÛNUS=8:NBÛNUSi=NB0NUS:REM NOMBRE DE BONUS 


10100 

DEBRA=15:DEBRA1=DEBRA:REM DEBUT RANGEE DES POINTS 


10110 

NRA=5:NRAl=NRA:REM NOMBRE DE RANGEE DE POINTS 


10120 

FINLIG=23:REM DERNIERE LIGNE OU METTRE BONUS 


10130 

TEMP=10000:TP1=TEMP:REM DECOMPTEUR DE TEMPS 


10500 

RETURN 


10998 

REM-INIT. VARIABLES D'UNE MANCHE- 


10999 

REM I N I T . TRANSPORTEUR: 


11000 

TX = 0 :TY = TYH1:TX1 = TX:TY1=TY:REM INIT. COORD. 


11010 

lIM=YM-TY:REM LIMITE ECRAN OU METTRE BONUS DROITE/GAUCHE 


11020 

REM INIT. PAQUET: 


11030 

P 0 = 0 


11040 

F J = 0: REM INIT. FIN JEU 


11200 

RETURN 

■ 


■KZîZOHH 

LA CHENILLE 


Aidez une pauvre petite chenille 
enfermée dans un enclos à se nourrir. 



_ BUT DU JEU _ 

Dodie, la chenille est prisonnière dans 
une zone délimitée par un fil électrique à 
haute tension. Tout contact avec celui-ci 
est mortel. La chenille doit parcourir son 


enclos à la recherche de nourriture repré¬ 
sentée par des ombres entre 1 et9.Acha- 
que nombre avalé, la chenille rejette son 
équivalent de radio-activité, symbolisée 
par des points qui deviennent de nou¬ 
veaux obstacles. 


_ AU CLAVIER _ 

- Il faut introduire le nombre de joueurs et 
leurs prénoms. 

- Pour jouer, utilisez le joystick que vous 
connectez sur le port de gauche. 


5 ' COPYRIGHT TILT MICRO 

10 WIPE:SCREEN 20,220,200,220 
20 COLORO,1,2,4:PRINTCHR*(16) 

30 DIMTJ(32,29) 

40 G0SUB120 
50 G0SUB150 
60 G0SUB290 

70 PRINT: PRINT: PRINT" VOULEZ-VOUS REJOUER (0/N) ?" 
80 RP*=INSTR*(1) 

90 IFRP*="o"THENG0T050 
100 IFRP$="n"THENWIPE: END 
110 G0T080 
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120 ’ PRESENTATION 
130 MS=0:AJ=0 

140 RETURN 

150 CLS:OUTPUT"COMBIEN DE JOUEURS (max. 9) ?",30,130,2 

160 CURS0R30,50:PEN1 : PRINT"<RETURN > "; :PEN3: PRINT”p aur recommencer avec":CURSO 
R60,38:PRINT"les mGmes joueurs" 

170 RP*=INSTR*(1>:NJ=VAL(RP*> 

180 IFNJ=0 AND AJ=0 THEN GOTO150 
190 IFNJ=OTHENNJ=AJ:GOT0270 

200 CLS:PEN1:PRINTTAB(14)NJ ; :PEN2:PRINT"JOUEURS":PRINT 
210 F0RI=1T0NJ 

220 PRINT: PRINT"NOM DU JOUEUR";:PEN3:PRINTI;:PEN1 
230 INPUT NOM*(I) 

240 IFLEN (NOM* <I))>10 THENNOM*(I)=MID*(NOM*(I),1,10) 

250 PEN2 
260 NEXT 

270 CLS : J 0= 1 : NP=NP+1 : AJ =N J 
280 RETURN 

290 WIPE:CURS0R15,210:PRINT"JOUEUR"; :PEN3:PRINTJO;": "! :PEN1:PRINTNOM*(JO)5 : PE 

N2:PRINT" JEU"; :PEN3:PRINTNP 

300 S <JO)=0:E=0 

310 F0RI = 1T032:F0RJ=1T029:TJ(I,J)=0:NEXT: NEXT 

320 F0RI=18T0216 STEP6 

330 OUTPUT"#",1,18,1 

340 OUTPUT"#",I,198,1 

350 NEXT 

360 F0RJ=18T019BSTEP6 
370 OUTPUT"#",18,J,1 
380 OUTPUT"#",216,J,1 
390 NEXT 

400 A=2:H=108:V=90 
410 B=JOY(O) 

420 IFB=00RB=50RB=60RB=90RB=1O THENB=A 

430 A=B:HP=H:VP=V 

440 H=H+( ( <B=-1)-(B=2> >*6) 

450 V=V-(((B=4)-(B=8>)*6) 

460 IFH<=18 OR H>=216 OR V< = 18 OR V>=198 THENGQT0540 

470 C=TJ(H/6-3,V/6-3):IFC=1THENGOTQ540 

480 IFC>1THENS<JO)=S(JO)+C:E=E+C 

490 OUTPUT" * " , H, V, 2 :OUTPUT"*",HP,VP,0 

500 PAUSEO.08 

510 IFE>OTHENOUTPUT"§",HP,VP,1:E=E-1: TJ(HP/6-3,VP/6-3)=1 
520 IFRND(O,10)>9.5THENG0SUB660 
530 G0T0410 

540 OUTPUT"*",HP,VP,3:F0RI=1T0300:TONEI,5:NEXT 
550 IFFIRE(0)< >0THENG0T0550 
560 WIPE:PEN2 

570 CURSQR50,150:PRINT"JOUEUR"; :PEN3:PRINTJO;:PEN2: PRINT" : "::PEN1:PRINTNOM*(J 
0) 

580 PRINT:PEN2:PRINT" SCORE :“; :PEN3:PRINTS(JO) 

590 PRINT:PEN2 

600 IFS(JO)>MS THENPRINT" NOUVEAU RECORD:";:PEN1:PRINTS(JO):MS=S(JO):M 

JO*=NOM*(JO):G0T0620 

610 PRINT" RECORD TOUJOURS DETENU PAR ":PEN1:PRINTTAB(10)MJO*;:PEN2:PRINT 

" AVEC"5 :PEN4+PRTNTMS 


620 

PEN2:J0=J0+1:IFJO>NJTHENRETURN 


630 

PAUSE 1 


640 

IFFIRE (0) < --OTHENGOT064O 


650 

G0T0290 


660 

Z*=STR*(INT(RND(2,10))) 


670 

X=6*(INT(RND(4,36))):Y=6*(INT(RND(4,33))) 


680 

Z=VÂL(Z*):IFTJ(X/6-3,Y/6-3)=l THENRETURN 


690 

TJ(X/6-3,Y/6-3)=Z 


700 

OUTPUT Z,X—6,Y,2 


710 

RETURN 
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ALPHABETOPHAGE 


Glouton d'un nouveau 
genre, vous dévorez l'alphabet 
lettre par lettre 



_ BUT DU JEU _ 

En parcourant une zone bleue délimitée 
par le signe dièse, avalez le plus rapide¬ 
ment possible les vingt six lettres de l'al- 
phabet.dans l’ordre croissant. Vous pre¬ 
nez la forme de la lettre que vous 


2 ' COPYRIGHT TILT MICRO 

4 ’********************************* 

5 ’* ALPHABETOPHAGE * 

6 ? ********************************* 

10 wipe 

20 colorO,1,2,4 

30 di mTJ (32, 19) ,REC(9) : -for I = lto9: REC ( I > =10000: next 
35 gosub3000 
40 gosub2000 
50 gosublOOO 

60 output"VOULEZ-VOUS REJOUER (0/N) ?",30,20,2 
70 RP*=instrt(1) 

80 ifRP*="o"thengoto40 

90 ifRP*="n"thenwipe:pen2:end 

100 gato70 

999 ’BOUCLE PRINCIPALE 

1000 P=65:A=2 
1010 B=joy(Û) 

1020 i -f B=0orB=5orB=6orB=9orB=10thenB=A 
1030 A=B:AH=H:AV=V:T=T+1 
1040 H=H+(((B=1)—(B=2))*6) 

1050 V=V-((<B=4)-(B=8))*9) 

1060 i -f H=18thenH=210 
1070 i fH=216thenH=24 
1080 ifV=18thenV=139 
1090 i fV=19BthenV=27 

1100 C=TJ (H/6-3, V/9-2) : i-f C=Othengotol 140 
1110 ifC< >Pthengotol180 

1120 S=S+1 : -f or I = 100tolstep-1 : tonel, 5: next 

1125 TJ(H/6—3,V/9-2)=0:plotH,V,6,9,2:plotH,V,6,9,0:plotAH,AV,6,9,1:plotAH,AV,6, 
9,0 

1130 P=P+1: ifP=91thengotol200 

1140 penO:cursorAH,AV:printchr*(P-l):penl:cursorH,V:printchr*(P-l) 

1145 outputT-l,72,210,O 
1150 outputT,72,210,1 
1160 pause(0.05*Nl+0.02) 

1170 goto1010 

1180 cursorAH,AV:penO:printchr*(P-l):output"*",AH,AV,1 
1185 for 1 = 1to200:tonel,5:next:forI=18to216step6:plot1,210,6,9,3:next 
1190 cursor18,210:pen2:print"PERDU ! VOUS AVEZ MANGE"îS;"LETTRE"5 : ifS>lthenpri 
nt"S" 

1195 iffire(O)<>Othengotol195 


ingurgitez mais la collision avec une mau¬ 
vaise lettre ou un obstacle bleu est mor¬ 
telle. _ 

_ AU CLAVIER _ 

- Au départ vous êtes représenté par le 
signe di 


- Ce logiciel s’utilise avec une manette de 
jeu connectée sur le port de gauche. 

- Après avoir choisi l'un des neuf niveaux, 
le jeu commence. 

- Pour continuer, pressez le bouton feu. 
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1196 print:wipe:gotol280 

1200 f or I = ltolO: f or J=50tolstep-1 : toneJ,3:next, 

1210 -flash3 

1220 i -f-f ire (0)<>0thengotol220 

1250 wipe:pen2:cursor20,150:print"VOUS AVEZ GAGNE AVEC UN TEMPS DE:" 

1260 pen3:outputT,100,130,3 

1270 i -f T<REC (N) thenpen2:cursor20, 110: print " LE RECORD AU NIVEAU";:pen3:print 

N:pen2:cursor50,90:print"EST MAINTENANT"; :penl :printT: REC(N)=T:return 
1280 pen2:cursor20,110:print" LE RECORD AU NIVEAU"j:pen3:printN:pen2:cursor5 

0,90:print"EST TOUJOURS";:pen1 :printREC(N) 

1290 return 

1999 ’INITIALISATION DU JEU 

2000 wipe:output"NIVEAU CHOISI (0 -> 9) ?",30,130,2 
2010 RP*=instr*(1):N=val(RP»):N1=9-N 

2020 cursor70,100:pen3:print"NIVEAU"j:penl:printN 
2030 pause2:T=0:S=0 

2040 wipe:cursor18,210:pen2:print"TEMPS :":cursor156,210;print"NIVEAU :" 

2050 outputT,72,210,1 :outputN,210,210,1 

2060 f or I = lto32: -f or J = ltol9: TJ ( I, J ) =0: next : next 

2070 forI=18to216step6 

2080 output"*",I,18,3 

2090 output"*",I,198,3 

2100 next 

2110 forJ=18tol98step9 
2120 output"*",18,J,3 
2130 output"*",216,J,3 
2140 next 
2150 H=10B:V=90 
2160 output"§",H,V ,1 
2170 forI=65to90 

; 2180 X=6*(int(rnd <4,36))):Y=9*(int <rnd <4,22))) 

2190 ifX=H and Y=V thengoto2180 
2200 ifTJ(X/6-3.Y/9-2)<>0thengoto2180 
2210 TJ(X/6-3,Y/9-2)=1 
2220 pen2:cursorX,Y:printchr*<I) 

2240 next 
2250 forI=lto26 

2260 X=6*(int(rnd(4,36))):Y=9*(int(rnd(4,22))) 

2270 ifX=H and Y=V thengoto2260 

2280 ifTJ(X/6-3,Y/9-2)<>0thengoto2260 

2290 TJ(X/6-3,Y/9-2)=1 

2300 plotX,Y,5,8,3 

2310 next 

2320 forI=10tolstep-1 
2330 outputI,108,210,1 
2340 tonelOO,100:pauseO.95 
2350 outputI,108,210,0 
2360 next 
2370 return 
2999 -REGLES DU JEU 
; 3000 wipe , 

3010 pen3:printtab(10)"******************" 

3020 printtab(10)"* "; :pen1 :print"ALPHABETOPHAGE"; :pen3:print" *" 

3030 printtab(10)"******************" 

3040 pen2:print:print" En vous dâplaoant ' l’aide de la":print" manette de je 
u gauche,vous al 1ez":print" devoir manger dans l’ordre toutes":print" les lettre 
s de l’alphabet." 

3050 print:print" Pour vous aider,1’absorbtion d’ une":print" lettre vous tran 
sforme en cette":print" 1ettre,mai s..." 

3060 print" ATTENTION print:print" La collision avec un d 

es obstac1 es":print" bleus ou avec une mauvaise lettre":print" est fatale!!" 

3070 print:print" A la fin du jeu,appuyez sur le":print" bouton de la manette 
pour continuer." 

3080 print:pen3:print" TAPEZ "j:penl:print"RETURN"j:pen3:print" POUR COMMEN 

CER" ; 

3090 RP»=instr*(1):ifRP*<>chr*(13)thengoto3090 
3100 cl s:print:return 
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ANGLOMANIE 


Entrez, en vous amusant, 
dans les arcanes de la langue 
anglaise. Good luck ! 



_ BUT DU JEU _ 

Approfondissez vos connaissances sur les 
verbes irréguliers. L'ordinateur vous pro¬ 
pose un verbe parmi tous ceux qu'il 
contient en mémoire. Il apparaît alors en 


haut de l'écran. Vous devez donner suc¬ 
cessivement : 

* l'infinitif 

* le prétérit 

* le participe passé 

* la traduction française 


Au bout de trois réponses fausses, l'ordi- 
nateur inscrit en bas de l’écran, la solution 

_ AU CLAVIER _ _■ 

- Pour jouer, il suffit de faire «RUN» et de 
suivre les ordres donnés par l'ordinateur. 


10 jC IL Y FAUT T RASSER |,1 EN R MODE MAJUSCULES POUR QUE CE PROGRAMME FONCTIONNE (CONTR 
OL P) 

20 wipe:screen 20,220,200,220 
30 colorO,1,2,4 
40 N=46 

50 dim B*(N>,C*(N>,D*<N>,E*(N),S*(N> 

60 cls:print:print:pen lsprint tab(10)"VERBES IRREGULIERS" 

70 printtab(16)"ANGLAIS" 

80 print:print:print:print 

90 pen 3:print"QUE CHOISISSEZ-VOUS ?" 

100 pen 2 : print: print: print" A.ANGLAIS" 

110 print:print" F.FRANÇAIS" 

120 print:print" S....POUR STOPPER" 

130 A$=instr$ (1) 

140 if A*="s"then cls:end 

150 if A*<>"a" and A*<>"f" thengotol30 

160 for 1=1 to N:S*<I)="":next 

170 restore 

180 for 1=1 to N 

190 read B*,C*,D*,E* 

200 B*(I)=B*:C*(I> =C*:D* < I )=D*:E$(I)=E$ 

210 ne>:t BOUCLE DE LECTURE 
220 if A*="a" then goto290 
230 ’ ANGLAIS 

240 cl s:pen 3:print:print" POUR CHAQUE VERBE PROPOSE,":print"VOUS INDIQUEREZ D 
ANS L ORDRE :" 

250 print:print:print:pen l:print" (1) ";:pen 2:print"L INFINITIF" 

260 print:pen lsprint" (2) ";:pen 2:print"LE PRETERITE" 

270 print:pen lrprint" (3) ";:pen 2:print"LE PARTICIPE PASSE" 

280 goto340 
290 ’ FRANÇAIS 

300 cls:pen 3:print:print" POUR CHAQUE VERBE PROPOSE,":print"VOUS INDIQUEREZ D 
ANS L ORDRE :" 

310 print:print:print:pen l:print" (1) ";:pen 2:print"LE PRETERITE" 

320 print:pen l:print" (3) ";:pen 2:print"LE PARTICIPE PASSE" 

330 print:pen l:print" (3) "!:pen 2:print"LA TRADUCTION FRANÇAISE" 

340 print:print:print:pen3:print" TAPEZ 

350 pen2:print:print" C....POUR COMMENCER 

360 print:print" S......POUR STOPPER" 

370 R*=instr$<l):if R*="s"thengato60 
380 if R*<>"c"thengoto370 

390 cls:print:print:print:print:print:print:print:print" APRES CHAQUE REP 
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□NSE :print" APPUYEZ SUR À» ; spen1 :print"RETURN"; :pen2:print"ü" 

400 pause 3:cl s 
410 M=0:K=0:goto470 

420 if int(M/10)<>(M/10) then goto470 
430 print"VOULEZ-VOUS VOTRE SCORE (0/N) ?" 
q 440 R*=instr$(l):if R$="o"then goto450:else if R*<>"n"then goto440:else goto46 
450 gosub900 

460 cl s:if 0$="n"thengoto60 
470 I=int(rnd(1,N+l)) 

480 B$="":C*="":D*=" ":E*="" 

490 if S$(I)< >""thengoto470 
500 S*(I)=B$(I):M=M+1 :B=0 
510 if A$="a" thengoto570 

520 pen2:print" VERBE : "; :pen1:printE*(I):E*=E*(I):forJ=1tolen(E$>:printta 
b(13+Jnext:f1ash 1,50 
530 print:pen2:input"INFINITIF ?";B* 

540 input"PRETERITE ?";C* 

550 input"PARTICIPE ?";D* 

560 if A$="f"thengoto610 

570 print"INFINITIF : "; :pen1 :printB*<I>:B*=Bi(I):forJ=1toi en(B$):printtab(13 
+Jnext:f1ash 1,50 
580 print:pen2:input"PRETERITE ?";Cï 
590 input"PARTICIPE ?";D* 

600 input"FRANÇAIS ?";E* 

610 if B$=B$(I) and C$=C* ( I) and D*=D*(I) and E*=E*(I) then gosub670 

620 if B$=B$ ( I ) and C*=C$(I) and D$=D* ( I ) and E*=E*(I> then gotc>420 

630 if BtOBKI) or C*OC$(I) or D$< >D* ( I ) or E*OE*(I) then gosub730 

640 if B<3 thengoto610 

650 if M=N thengoto900 

660 goto420 

670 ’ BONNE REPONSE 

680 K«=K+1 

690 for X=lto500 step2: toneX, 5: ne>:t 

700 pen1:print:print:print" *** BONNE REPONSE ***":f1ash1 :pen2:pause4 
710 c1 s 
720 return 

730 ' MAUVAISE REPONSE 

740 B=B+1 

750 pen3:print" *** MAUVAISE REPONSE ***":tonelOOO,300 
760 if B=1 thenprint" VOUS AVEZ ENCORE DEUX ESSAIS" 

770 if B=2 thenprint" PLUS OU’UN ESSAI" 

780 if B=3 then goto840 

790 if B$OBÎ(I) thenpr i nt "ERREUR -> pen2: input " INFINITIF ?";B$ 

800 if C*-:.>C*(I) then pen3: pr i nt "ERREUR -> " ; : pen2: i nput "PRETER I TE ?";C3i 

810 if D* .. >D* ( I ) then pen3: pri nt "ERREUR -> " ; : pen2: i nput "PART IC IPE ^";D$ 

B20 if E*OE$(I) then pen3: pri nt "ERREUR -> pen2: i nput "FRANÇAIS ^";E$ 

830 return 

840 print" *** PERDU ***" 

B50 print"LA BONNE REPONSE ETAIT POUR":pen1 

860 if A$="a"thenprintB*(I):pen2:printC$(I);" , ";Dî(I);" ,■ M jE*(I) 

87o if A$="f"thenprintE$(I):pen2:printB$(I) ; " , ";C*(I); M ";D*(I> 

880 pause7 

890 cl s:return 

900 ' SCORE 

910 A=int(K/M*1000)/10 

920 cl s:pen3:print" VOTRE SCORE EST DE :" 

930 print:print:penl:printtab(5)Kj:pen2:print" REPONSES SUR ";M 
940 print:print:print" SOIT "5 :penl:printA;"%" 

950 print:print:print:pen3 

960 if A=100 thenprint"VOUS ETES INCOLLABLE !!!" 

970 if A>75 and A<100 thenprint"C'EST TRES BIEN !" 

980 if A>50 and A<=75 thenprint"C'EST PAS MAL" 

990 if A>25 and A<=50 thenprint"FAITES UN EFFORT" 

1000 if A<=25 thenprint"HUM !!!" 

1010 pause 10:pen2 
1020 if M=N thengotol040 

10.^0 print: print: print: print: print: print: print "ON CONTINUE 0/N) ?" : 0$=i nstr-fc ( 1 
















*** TERMINE *** 


: pause 3 


):if 0$<>"a" and OtO"n" then cl s: gotol030 
1040 cls:penl:print:print:print:print" 

:goto60 

1050 data 10 BE,WAS,BEEN,ETRE 
1060 data T0 BEGIN,BEGAN,BEGUN,COMMENCER 
1070 data' TO BITE,BIT,BITEN,MORDRE^ 

1080 data TO BRAKE,BROKE,BRQKEN,CASSfcR 

1090 data TO BRING,BROUGHT,BROUGHT,APPORTER 

1100 data TO BURN,BURNT,BURNT,BRULER 

1110 data TO BUY,BOUGHT,BOUGHT,ACHETER 

1120 data TO CAN,COULD,,POUVOIR 

1130 data TO CATCH,CAUGHT,CAUGHT,ATTRAPER 

1140 data TO COME,CAME,COME,VENIR 

1150 data TO DO,DID,DONE,FAIRE 

1160 data TO DREAM,DREAMT,DREAMT,REVER 

1170 data TO DRINK,DRANK,DRUNK,BOIRE 

1180 data TO DRIVE,DROVE,DRIVEN,CONDUIRE 

1190 data TO EAT,ATE,EATEN,MANGER 

1200 data TO FALL,FELL,FALLEN,TOMBER 

1210 data TO FEEL,FELT,FELT,SENT IR 

1220 data TO FIND,FOUND,FOUND,TROUVER 

1230 data TO FLY,FLEW,FLOWN,VOLER 

1240 data TO FORGET,FORGOT,FORGOTTEN,OUBLIER 

1250 data TO GET(ON),GOT(ON),GOT(ON),MONTER DANS 

1260 data TO GIVE,GAVE,GIVEN,DONNER 

1270 data TO GO,WENT,GONE,ALLER 

1280 data TO HAVE,HAD,HAD,AVOIR 

1290 data TO HEAR.HEARD,HEARD,ENTENDRE 

1300 data TO HURT,HURT,HURT,BLESSER 

1310 data TO KEEP,KEPT,KEPT,GARDER 

1320 data TO KNOW,KNEW,KNOWN,SAVOIR 

1330 data TO LEAVE,LEFT,LEFT,QUITTER 

1340 data TO LOSE,LOST,LOST,PERDRE 

1350 data TO MAKE,MADE,MADE,FABRIQUER 

1360 data TO MEET,MET,MET,RENCONTRER 

1370 data TO PUT,PUT,PUT,METTRE 

1380 data TO READ,READ,READ,LIRE 

1390 data TO SAY,SAID,SAID,DIRE 

1400 data TO SEE,SAW, SEEN,VOIR 

1410 data TO SIT,SAT.SAT,ETRE ASSIS 

1420 data TO SHINE,SHONE,SHONE,BRILLER 

1430 data TO SHOW,SHOWED,SHOWN,MONTRER 

1440 data TO SPEAK,SPOKE,SPOKEN,PARLER 

1450 data TO STAND,STOOD,STOOD,ETRE DEBOUT 

1460 data TO TAKE,TOOK,TAKEN,PRENDRE 

1470 data TO TELL,TOLD,TOLD,RACONTER 

1480 data TO THINK,THOUGHT,THOUGHT,PENSER 

1490 data TO WAKE UP,WOKE UP,WOKEN UP,SE REVEILLER 

1500 data TO WRITE,WROTE,WRITTEN,ECRIRE 
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CRAZY-BANGS 


L'alarme vient de retentir, 
courez vers votre O.V.N.I. et décollez 
au plus vite. 



|BUT DU JEU 

Après la mission delta, vous revenez vers 

la piste d'envol. Oh surprise I Celle-ci a 
disparu . À la place vous découvrirez une 
multitude de buildings. Il faut les abattre 
un à un sans relâche. La première colli¬ 


sion avec un gratte-ciel vous sera fatale. 
Tirez juste, car vous n'avez que trois vais¬ 
seaux^_ 

1 AU CLAVIER ~ 

- Ce logiciel nécessite l'utilisation d'une 

manette de jeu à connecter sur le port de 


gauche. 

- Pour jouer, il suffit de suivre pas à pas les 
instructions que vous donne l'ordinateur. 


10 ’ *§*§*§*§*§*§*§*§*§*§*§*§*§*§*§* 

20 ’ *§*§*§*§ §*§*§*§*§* 

30 ' *§*§*§*§ CRAZY-BANGS §*§*§*§*§* 

40 ’ *§*§*§*§ §*§*§*§*§* 

50 ' *§*§*§*§*§*§*§*§*§*§*§*§*§»§*§* 

BO 02=200 
90 MM*="Patrick" 

100 SS=23B66 
110 CH=192 
120 K=-l 
130 error2480 
140 wipe 

150 gosub1770:gosub1700:gosub690 
160 gosub1470:gosub1970 
170 gosub1220 
ISO gosub400 

190 -f or T=0to90step6: outputchr* <CH> , T, 220,3: pause. 04: outputchr* (CH) , T, 220,0: nex t 
200 gosublOlO:output"ALT.", 170,220,2 

210 outputchr* (192) ,30,220, 1 :outputchr*(196) , 45,220, 2.: outputchr* ( 194) ,60,220,3 
220 gosub230:outputY,190,220,3:gosub290:gosub530:gosub310:gosub330:outputY,190. 
220,0:goto220 ’ 

230 X=X+1Os Q1=Q1 +1 :if X>240thenX= 00 :Q 2 =D 2 +P 
240 i-f J=lthenY=int (sin (Q1)*TT+Q2> : el seY=Q2 
250 ifQ2<40thengosub1B00 
260 ifCH=194thensound4, 22 :elsesound4,40 
270 S=S+1 
2B0 return 

290 outputchr*(CH),X,Y,C1 
300 return 

310 outputchr$(CH),X,Y,0 
320 return 

330 1fC=lthengosub370:return 
340 A=Q2 

350 i-ffire(O)=0thenXX=X:C=1 
360 Z=int(rnd(15,Y-20)>:return 

370 A=A-10: outputchr* ( 193) , XX, A, 2: S=S+20: outputchr* (193), XX, A, O: i-f A< ZthenC=0: A= 
Q2 

380 i-f point ( XX+5, A-10) < >0thenplot XX, A, 10,20,0 
390 return 

400 wipe:Sound7,4096:brightl:color0, 1,7,3 

410 forD=10to220stepl0:E=int(rnd(20,150)):plotD,E, 10,E-15,E: output“ = " , D+2, E+4, E 
: output " ! 11 , D+2, E+3, E: 1 i neD+1, E+l, D+8, E+l, E 


_ ► 
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420 forW=20toEstep4: output " . . " , D, W, 0: next : next 
430 X=10:02=200:Y=200 
440 return 

450 restore450: i or I=&FB00to&FB30: readN:pokel, N: ne>:t 
460 data9,8 

470 datal28,192,248,254,063,112,096,000,000 

480 dataOOO,040,056,056,056,056,016,016,016 

490 data24,60,126,126,24,124,146,145,00 

500 datal47,92,124,63,148,124,28,42,72 

510 dataO,0,0,192,248,063, 112 , 000 , 000 , 000 , 0 , 0 , 0,0 

520 return 

530 i-fpoint ( X+9, Y-7) OOthensoundO, 4096: sound3,25B: outputchr* ( 195) , X, Y, 1: pause. 7 
:outputchr*(195),X,Y+2,2:pause1 :sound3,275:goto560 
540 i-fpoint ( X+7, Y-B) < >0thensound0,4096: sound3,258: outputchr* ( 195) , X, Y, 1: pause. 7 
:outputchr*(195),X,Y+2,2:pausel:sound3,275:goto560 
550 return 

560 wi pe:colorO,6,5,4 
570 gosubl600 

580 output"COMMANDANT ",50,130,1:outputNN*,120,130,1 
590 S=-S*P 

600 i-fP=-5thenS=int (S/l. 4) 

610 output"VOTRE SCORE",70,110,2:outputS,150,110,2 

620 02=200:A=200:X=0:pause3 

630 i -f S >SSthengosub 1090 

640 S=0:clsO:cal or0,7, 1 ,3:J=0:gotol70 

650 restore650: -f orT0=l tol4: readF, T : toneF, T : next 

660 data205,170,167,180,140,180,140,190,140,150,164,180,140,180,164,180,190,190 

670 datal90,150,214,150,187,150,214,150,228,200 
680 return 
690 wipe 

700 brightlscolor0,7,1,3 
710 plot89,200,10,120,2 
720 plot90,198,8,116,0 
730 line85,170,89,170,2 
740 line85,110,89,110,2 
750 plot20,220,65,200,2 
760 forXE=25to80step10 
770 forYE=210to40step-15 
780 KK=rnd(1,1000) 

790 ifKK>400thenC0=0:elseCD=3 
800 p1otXE,YE,5,8,Cü 
810 next, 

820 restore820 
830 -forAA=ltol 1 
840 readL* 

850 outputL*,91,205-AA*10,1 
860 next 

870 dataC,R,A,Z,Y, ,B,A,N,G,S 
880 data, 

890 pausel 

900 -for 1 = 1 to3: col or 0,0, 1 ,3:pausel: col or0, I, 1,3: pausel : next 
910 outputchr*(192),170,170,3 
920 gosub1670 
930 colorO,7,1,3 

940 poke&5FE3,0:poke&5FE4,&FB:gosub450 

950 gosub650 

960 gosub1010 

970 pausel 

980 wipe 

990 brightO 

1000 return 

1010 restore870 

1020 -forT=90to206step6 

1030 readLt:outputchr*(CH),T,220,3 

1040 pause.05 

1050 outputchr*(CH),T,220,0 
1060 outputL*,T,220,3 
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1070 next 
1080 return 
1090 wipe 
1100 calorO,6,3,2 

1110 output"ancien record",70,160,1 

1120 outputMM*,50,140,IroutputSS,120,140.1 

1130 output"COMMANDANT 40, 110,2 

1140 outputNNt,110,110,2:output"vous etes an CHAMPION !!",45,90,2 
1150 output"VOTRE SCORE : ",50,70,2:outputS,140,70,3 
1160 -f 1 ash3, 10 
1170 pausel 

1180 -f orA=lto25: Rl=rnd (50, 100) : R2=rnd ( 100. 200) :toneRl,R2:next 
1190 SS=S 
1200 MM*=NN* 

1210 return 
1220 seedtime(l) 

1230 wipe:CH=0:XX=0 
1240 SC=SC+1 : i -f SC>3thenSC=0: goto 160 
1250 TT=int(rnd(15,1>) 

1260 colorO,4,3,1 :bright(1) 

1270 1ine20,20,20, 210, 1 

1280 1ine220,210 ,1 

1290 1ine220,20,1 

1300 1ine20,20,1 

1310 output"MISSIONS",30,219,1 

1320 output"HIGH SCORE ",120,219,1:outputSS,180,219,3 

1330 print:print" "; :forA=ltoSC:print"#"; :next 

1340 output" COMMANDANT ",40,200,2 

1350 outputNN*,110,200,2 

1360 output"ETES VOUS UN ",72,180,1 

1370 output"KAMIKAZE", 71,149,3 

1380 outputchr*(194) , 140, 150, 1 

1390 output"CONFIRME",71,119, 3 

1400 outputchr$(196),140,120,1 

1410 output"TOURISTE",71,89,3 

1420 outputchr*<192),140,90, 1 

1430 output"VOTRE DECISION ?",50,40,2 

1440 tonelOO,100 

1450 gosub2400 

1460 gotol80- 

1470 cl s:colorO,5,6,3:pen3 
1480 NN*="" 

1490 output"VOTRE NOM ?",80,12Q,1 

1500 cursor80,90 « 

1510 forNN=ltol2 
1520 N$=instrï(1) 

1530 i -f asc (N*) >96thenN*=chr * (asc (N*) -32) 

1540 i -f N*=chr* ( 13) thenNN=13: gotol570 
1550 printN*; 

1560 NNÆ=NN*+N* 

1570 next 

1580 if NN$=""thenNN*="TOLROUILLEE" 

1590 return 
1600 cl s 

1610 lineO,0,200,110,0 

1620 forA=0toS/10stepS/1000 

1630 1ine2#cos(A)*40+120,2*sin(A)*50+110,3 

1640 next 

1650 cls 

1660 return 

1670 f or A=0to50step. 7:1 ine200, 115, 120+A, 60—A, A: next : -f orA=0tol0step. 5:1 ine220, 12 
4,200+A, 125-A, A: next : -f or A=0tol0step. 5:1 ine200+A, 125-A, 135+A, 40-A, A: next 
1680 forA=2to8:1ine135+A,40-A,108+A,0,2:next 

1700 poke&5FE3, S<1D: poke!<5FE4, &FB 
1710 restorel740 

1720 -f orA=&FBlDto&FB3C: readN: pokeA, N 
1730 next 










,56,28,28,30,14,14,14,15,7,7,7,7,7,7,6,6,6,12,8,0,0,, ,, 


ben mon vieux 


!",60,120,1 


1740 data30,8 
1750 data0,0,0,192,11 
1760 return 
1770 cl s:color0,6,4,5 
1780 ifpot (O) >200thenoutput"et 
roieur !",60,120,l:elsereturn 
1790 gotol780 

1800 output"ENFIN LA TERRE FERME 
1810 P1=10:X=0 
1820 plotO,40,240,40,0 
1830 1ineO,28,240,28,1 
1840 X=X+P1 
1850 P1=P1—.5 

1860 outputchr*(CH),X,39,Cl 

1870 if X=104.5thenQ2=20C>: X=0: F-P-2: pause2: goto 1910 
1880 pause.1 

1890 outputchrt(CH),X,39,0 

1900 goto1840 

1910 forA=106to238step2 

1920 output“,",A,38,3 

1930 pause.1 

1940 output",", A,38,0 

1950 next 

1960 gotol80 

1970 wi pe:col or0,4,5,3:penl 

1980 print:print:print:print:print:print:print:print" 
1990 gosub2330 
2000 gotol990 

2010 wi pe: col orO, 5,,6,3: br ight 1 : cl s2 
2020 screen20,200,200,170:cls0 
2030 linel9,30,19,201,3 
2040 1ine220,201,3 
2050 1ine220,30,3 
2060 line19,30,3 
2070 screen30,180,180,130 
2080 penl:print"VOUS VOICI 


on a perdu son cont 


BONJOUR 


IMNt 


A BORD D’UN ENGIN VOLANT IDENTIFIE MAIS 

:pen2:print" MEGAPOLIS":print 
pen3:print"LA CELEBRE VILLE, VOUS EMPECHE D’APPROCHER POUR 


ATT ER 


que devez vous faire ?" 


2090 
RIR. " 

2100 print:pen3:print"D’apres vous, 

2110 pause 8:cl s 

2120 print"0UI ,VOUS AVEZ TROUVE;IL S’AGIT BIEN DE REDUIRE LES AFFREUX IM 

MEUBLES MAIS ATTENTION A N’EN RATER AUCUN SINON VOUS LES PERCUTEREZ ..." 

2130 print:pen2:print"VOUS AVEZ LE CHOIX ENTRE 3 MAGNIFIQUES VAISSEAUX ." 
plot50,30,140,25,3 

output"Fire pour continuer",60,20,Oîiffire(0)<>0thengoto2150 
screen20,200,200,170:cl sO 
cl s:col orO,2,6.3:pen3 

print:print" LE KAMIKAZE : "; :pen1 :printchr$(194):pen2 


2140 

2150 

2160 

2170 

2180 

2190 


print:print"C’est 


un 


satellite motorise 


en perdition dans 1’atmospher 


2200 pen3:print:print" 
2210 .print:print"Voici 
2220 
2230 
2240 
2250 
2260 
ERA A 
2270 
2280 
2290 
2300 
2310 


CONFIRME : "; :pen 1 :printchr$(196):pen2 
professionnel du vol en rase-mottes ." 
TOURISTE : "; :pen1 :printchr*(192):pen2 
tranquilie..." 


LE 
un 

pen3:print:print" LE 
print:print"Un homme 
iffire(0)<>0thengoto2240 
cl s:color0,1,6,3:print:penl 

print"ATTENTION ! "; :pen2:print"IL FAUT ATTERRIR SURLA PISTE QUI APPARAIT 

LA FINDE LA DEMOLITION DES-GRATTE—CIELS" 

print:pen3:print"Le score a battre est :"; :pen1 :print" 23866 !" 
pen2:print:print"ALORS BONNE CHANCE ..." 
iffire(0><>0thengoto2290 
Y=50:A=0 

forX=20to215step3:A=A+.07:Y=Y+A:Y=min(Y,100):outputchrï(194) 

4:outputchrt(194),X,Y,0:next 
2320 wi pe: go'tol220 

2330 output"Voulez vous des explicatians",42,115,1 

2340 output "Voul ez vous des expl i cati ons" , 43, 116,3__ 


X,Y,2:pause.0 


124 












2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 


OUI",61,100,2:output"MANETTE = NON)", 79,90,2 


output"(BOUTON de TIR = 
i f-f ire(O) =0thengoto2010 
i -f joy (O) < >0thengotol220 
gota2360 

A=1:B=0:ZZ=10:S1=0 
Y1=120 

output 155, Y1,0: i-f joy(0)=4thenYl=Yl+30:elseif joy (0)=SthenYl=Yl-30 

Yl=min(Yl,150):Yl=max <Y1,90> 

output , 155, Yl, 2: pause. 07: i-f Tire (O) =0elsegoto2410 
i -f Yl = 150thenP=—10: J=1 : CH=194: Cl =2: A=Y 
ifYl=120thenP=-10:CH=196:Cl=3:A=Q2 
i f Y l=90tfnenP=-5: CH=192: Cl =3: A=Q2 
return 

wipe:colorO,1,7,3:pen3:print:printEC,EL:pen2:print:print" 


parlez en 


a rauteur":penl:print:print" Patrick LHULL IER" : pen3: pri nt : pri nt " Tapez 

une touche pour continuer":R$=instr*(1):EC,EL=0:run 




LA PETANQUE 


Vous partez passer quelques jours 
dans le midi de la France. Il fait chaud et après une petite sieste, 
vos amis vous proposent une partie de boules 
à l'ombre d'un platane. 


BUT DU JEU 


Ici, les . règles diffèrent légèrement de 
celles du jeu de pétanque classique. Il faut 
envoyer une balle sur l’un des trous 
rouges placé' à l’extrémité du terrain. 
Autre changement, vous ne lancerez pas 
la balle à la main, mais à l'aide d’un club 



terrain, pour trouver le meilleur angle de 
tir. Attention, suivant le niveau de jeu, la 
trajectoire de la balle est plus ou moins 
étrange et le temps de jeu est de plus en 
plus restreint. 


AU CLAVIER 


le port de gauche. 

- Choisissez un niveau de jeu parmi les 
quatre proposés. 

- Vous vous déplacez en utilisant la ma¬ 
nette de jeu. Pour tirer, pressez le bouton 
de feu. 


- Ce logiciel nécessite l'utilisation d'un 


5 w i pe 

10 

■f or-I=0tol 10: readA: pokel +&FBOO, A : next 

30 

pokek5FE3,0 

50 

poke&5FE4,&FB 

70 

datal2,3 

90 

dataO, 12, 12,30,30,30,30,60,76,140, 140-, 30 

110 

datai92,140,140,94,94,62,30,23,12,12,12,30 

130 

data7,8,8,16,16,16,32,32,32,32,64,64 

150 

datal23,64,64,43,16,16,3,3,4,4,2,1 

170 

datai,1,1,1,1,1,2,4,4,S,16,224 

190 

data64,64,64,64,64,64,32,32,43,24,12,3 

210 

datai2,8,114,189,129,129,129,129,129,129,90,36 

230 

datal02,36,36,165,131,0,131,165,36,36,102 ,0 

250 

d at a254,254, 120,34,10,164,34,111,54,11,254,254 

270 

dataO 

272 

pen 1 

275 

gosub 2000 

276 

sound7,4096:w i pe 

280 

plotX,Y+12,3,12,0 

2S5 

plot 175,170,12,35.0 

236 

W=0 


125 
































233 brightl 

290 for-V=lto240step3 
295 plotV, 16, 1 :next 
310 colonO,1,7,2 

320 i-FL>7andL< 10thenoutputchr*< 198) , 20,220, 1 : WW=WW + . 5 

321 i -f L > 1 OandL < 17thenoutputchr % ( 199-) , 30,220,2 : WW=WW+ . 5 

322 1+L>17andL<25thenoutputchr*<200) ,40,220,2 :WW = WW+1 

323 i-fL>25andL<35ther.outputchr$ < 201 ) ,50,220,2: WW=WW + 2 
330 X = rnd<175, 135) :Y = rr,d <140,150) 

350 plotX,Y,3,4,1 

370 X=rnd(175,185):Y=rnd(160,170) 

390 plotX,YT3,4,1 
410 output“SCORE",90,222,2 
430 screen130,230,60,20 
435 cl 52 

440 screen15,105,210,75 

450 c152 

460 gosubl900 

470 outputL,160,223,O 

490 X=20:Y=115 

510 A=j oy (O) 

520 plotX,Y,3,6,0 
530 W=W+WW 

550 i-fW=240orW>230 + WWthen+lash0:wipe: run 
555 1 -f W=100thengosubl950 
560 output"<",W,20,2 

564 pause.1 

565 output"<",W,20,O 
570 output"=",W.20,2 
530 pause.05 

590 output"=",W,20,O 
630 gosubl690 

650 i-F A< >Othenoutputchr$ ( 192) , X, Y, O 
670 B=int (pot (O) / 4) : i-fB<lthenB=l 
690 i-FA=0thengoto890 

710 onAgoto730,750,,770,790,310,,330,350,370 

730 X=X-B:goto390 

750 X=X+B:goto890 

770 y=Y+B: goto390 

790 X=X-B:Y=Y+B:goto890 

810 X=X+B:Y=Y+B:goto390 

S30 Y=Y-B:goto890 

850 X=X-B:Y=V-b: goto390 

870 x=x+p:y=y-b 

390 =O3ubl570 

’93C outputchr*(192),X,Y,2 

950 i-ff ire (O) =0t henou tputchr* < 192) , X, Y ,0 
970 i-f-f ire(O) =0thengoto990: e 1 segotoSlO 
990' iF-f ire(O) =0ther.goto 10 10 
1010 E=X 
1030 C=0 

1050 P=pot(O):P=max(30,P):F=min(150,P) 

1070 outputchr*(193),X,Y,2 
1090 R=20 

1110 T=int(rnd(25,60)) 

1130 D=.64 
1150 C=C+D 
1170 E=E+P/10 

1190 S=sin!Ci:itS<Othen3=-S 
1210 F=3*R+Y 

1230 F=rnin (F, 200) : F=rnax £15, F) 

1250 E=mi n (E, 240) : E=inax (E, O) 












1270 ifF<Y+2.6andR>3thentonelO,10 ~ 

1290 ifC>Tthengoto510 
1310 plotE,F+R-12,2,3,2 

1330 ifpoint<E+2,F+R-12)=1thenL=L+1 :outputchrï(193) , X, Y, O:goto3000 

1350 i f poi nt (E + 2, F +R-13) =11henL=L+1 : outputchr* ( 193) , X, Y, 0: goto3000 

1370 if poi nt ( E + 2, F + R-14 ) =11 henL=L+1 : outputchr* ( 193) , X, Y, O : goto3000 

1390 ifpoint (E + 2,F +R -11) = lther.L=L + l : outputchr* ( 193) ,X,Y,O :goto3000 

1400 i fpoint(E-l,F+R-13)= 1 thenL=L+l:outputchr$(193), X, Y,O:goto3000 

1405 ifpoint<E,F + R-13)=1thenL=L+1 :outputchr*(193) ,X,Y,O :goto3000 

1410 plotE,F+R-12,2,3,O 

1430 ifE=240thengoto510 

1450 R=R-.5 

1470 ifR<3thenP=20 

1490 i f p o i n t (X + 5, Y) =2thenrun 

1510 ifpoint(X + 3,Y- 2 )=lthenrun 

1530 R=niax < 0 , R ) 

1550 goto1130 


1570 

1590 

1610 

1630 

1650 

1670 

1690 

1710 

1730 

1750 

1770 

1790 

1810 

1830 

1850 

1870 

1890 

1900 

1910 

1920 

1930 

1940 

1945 

1950 

1960 

1970 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2065 

2070 

2075 

2076 

2077 

2078 

2079 
3000 


X=min(X,105) 

X=max(X,10) 

Y=min(Y,195) 

Y=max<Y,130) 
return 

'TRACE TERRAIN 
1ineO,200,240,200,3 
1ine70,200,35,115,3 
1ine50,200,O,110,3 
1 i ne190,200,240,110,3 
1ineO,115,240,115,3 
1ine185,180,212,130,3 
1inel60,180,175,130,3 
1ine160,180,185,180,3 
1 ine175, 130,212, 130,3 
1ine120,115,115,200,3 
return 
penO 

pr- i nt "VOUS ETES SUR UN TERRAIN DE BOULES” 
pr i nt 

print”IL FAUT TIRER SUR LES TROUS ROUGES” 

pr i nt 

return 

print:print:print:print"DEPECHEZ VOUS !!" 

print:print"LE TEMPS PASSE..." 

return 

force 

wipe 

print:print:print:print"VOTRE FORCE ?":print 

print" 4=oeil de lynx " 

print:print" 3=bon" 

printîprint" 2 =rnoyen" 

print:print" l=nouveau" 

3 a u n d 5,4056 
inputWW 

onWWgoto2076,2077,2078,2079 

WW=0:return 

WW= 2 :return 

WW=4:return 

WW=6:return 

print:print:print:print".BRAVO. .. 

Vous etes un AS ! ! !“:print:print 


1 


3003 s o u n d 3,268 
3005 colorO,1,2,3 
3010 pause4 

















3011 5ouhd7,4096 

3020 goto230 

3030 wipe 

3040 colorO,1,2,3 

3050 A=1O 

3060 B=4 

3070 C=5 

3030 D=5 

3090 E=4 

3100 P=230 

3110 0=230 

3120 M=15 

3130 0=9 

3140 X=1O 

3150 X=X+A 

3160 M=M + D 

3170 0=0+B 

3180 P=P-C 

3190 Q=Q-E 

3195 iffire(0)=0ther.gotol 
3200 plotX,50,10,3,1 
3210 plotX-A,50,10,3,0 
3220 plotM,54,10,3,2 
3230 plotM-D,54,6,3,0 
3240 plotO,58,4,2,3 
3250 p1otO-B,53,4,2,0 
3260 p1otP,62,4,4,1 
3270 p1otP+C,62,5,4,0 
3230 plotQ,46,8,2,3 
3290 plotQ+E,46,8,2,O 
3300 ifX>220orX<1OthenA=-A 
3310 ifM>230orM<10thenD=-D 
3320 if Q<lOorQ>230thenE=-E 
3330 ifP<10orP>230thenC=-C 
3340 i fO >230or0< 10theriB=-B 
3350 goto3150 
3360 wipe 
3370 X=110:Y=90 
3330 C=4 
3390 M=220 
3400 gosub3690 
3410 m=ioo:n=ioo 
3420 A=100:B=100 
3430 J=joy(0) 

3440 P=pot(O) 

3450 P=P/50 

3460 outputchr*(30),X,Y,O 
3470 go5ub3540 

3480 1ineX,Y,cos(P)*10+X,sin(P)*20+Y,1 
3490 outputchr$(30),A,B,O 
3500 output.chr$(30) ,M,N,0 
3510 gosub3640 

3520 1ineX,Y, cob(P)* 10+X,sin(P)*20+Y,O 
3530 goto3430 

3540 i+J>=4andJ<=6thenY=Y+3 
3550 i -f J >=8and J< = 10thenY=Y-3 
3560 i + J = 2or J=6orJ = 10thenX=X + 3 
3570 ifJ=lorJ=5orJ=9thenX=X-8 
3580 gosub3760 
3590 outputchr$!30),M,N,2 
3600 outputchr$!30),A,B,3 














3610 DutputchrSi (30) , X, Y, 1 
3620 i-f-f i r-e < O ) =0t henC = -C 
3625 i -f inkeyï(5)="a"thengotol 
3630 return 

3640 i-fX<AthenA=A + 4: el seA=A-4 
3650 ifX<MthenM=M+C:elseM=M-c 
3660 i-fY<BthenB=B + 4: el seB-B-4 
3670 i -f Y< NthenN=N + C : e 1 seN=N-C 
3630 return 

3690 forI=kFBOOtokFBOD 
3700 readN 
3710 pokeI,N 
3720 next 
3730 return 

3740 data6,6,112,32,248,112,112,80 
3750 dataO,O,O,O,O,O,O,O,O 
3760 X=m i n ( X , 200 ) : X=rnax ( X, 20 ) 

3770 A=min(A,195):A=max(A,25) 

3780 M=min(M,195):M=max<M,25) 

3790 Y=min(Y,200):Y=max(Y,20) 

3800 B=min(B,195):B=max(B,25) 

3810 N=min (N‘, 195) : N=max (N, 25) 

3820 return 

3830 printA,chr$(A) 

3840 A=A+1 
3850 goto3830 



SQUASH 


Prenez votre raquette 
et partez avec un ami disputer 
une partie amicale. 




vous devez rattraper une balle à tour de 
rôle, à l'aide d'une raquette. Il est inutile 
Çfe tricher car le Laser 200 veille à tout. 
Une partie est terminée lorsque le score 
d’un joueur atteint au moins 10. 


BUT DU JEU 


ainsi possible de gêner l'adversaire en 
vous plaçant sur la trajectoire de la balle. Il 
devra alors vous contourner pour jouer à 
son tour. 


en - Donnez le nombre de joueurs, pour com- 
î. Il mencer. S'il n’y a qu'un joueur, ce dernier 
r à utilise le joystick de gauche. 


Vous pourrez jouer violemment en blo¬ 
quant la balle de l'adversaire, car les ra¬ 
quettes ne peuvent se superposer. Il est 


- Pour déplacer l'une ou l'autre raquette, 
utilisez l’extension manettes de jeu. 


Vous pourrez jouer soit seul contre l'ordi¬ 
nateur, soit avec un ami. 


AU CLAVIER 


- Ensuite pressez une touche pour servir. 

- Attention, les caractères semi- 
graphiques du listing correspondent aux 
touches à presser sur le clavier. Mais le 
résultat à l'écran est inversé. 


' Ce logiciel nécessite l'extension 16 Ko 


de mémoire vive et l'extension joystick. 


1 REM COPYRIGHT TILT MICRO 

5 DiMjcn,xcn,rcn 

10 CLS :PRINT@109, "SQUASH 1 ' 


■■■■■■■■■■■■■ 


100 CLS :C0L0R3j1 
110 PRINT"BHM 


20 PRINT"NOMBRE DE JOUEURS C1-21"; :INPUT 
D:IFABSCD1>2THEN20 

30 Q=ABS(DJ-1 :JC0)=0:JC1J=0:DY=1:TE=D*CR 
NDC2J-1] 


120 FORI=32TO480STEP32 
130 PRINTSI j '' □□■■■■■■ 


■■■■■■■■■■■■■■■a 

140 NEXT 


129 






















200 C0L0R7:XC03 = 10:XCD3=16+D*6:YC03=14:Y 
CD3=14 

205 1=0 :GOSUB3000:I=D:GOSUB3000 
210 TR=D-TE:TB=14:A=RNDC03*C3-2*RNOC23 3 
215 DY=-ABSCDY3:X0=XCTR3-A*14:PRINT@481, 
JC03 ; 

217 IFD=1THENPRINT@508,JC13î 

220 FOR1=0TOD:IFJ C13=10THENPRINT@479+XCI 

1,"FINI";-ENDELSENEXT 

230 PRINTS476+XCTR3 >"SERUICE"!=RS=INKEY$ 
1C0L0R3 

240 IFINKEYS=""THEN240 

250 PRINT6476+XCTR3» " •" » 

300 TR=D-TR 

500 F0RI=TRT0D-TRSTEPD-2*TR:0D=CINPC43+3 
*13AND311 

510 nO-OD-4*lNTCOD''43 = X=XC I 3 : Y=YC I 3 • 

520 IF0D>24AND0D<28AN0X>4THENXCI3=X-2 
530 IFOD>20ANOOD<24ANDX<30THENXC13=X+2 
540 IFf10=l ANDY <14THENYCI3=Y+1 


550 IFriO=2ANDY>2THENYC I 3 =Y— 1 

555 1FD=1ANDYC03=YC13ANDABSCXC03-XC133 <3 

THENXCI 3=X ’-YC 13=Y 

560 C0L0R3: PRINT@X+32*Y-34,"■■■" 1=GOSUB 
3000 

570 NEXT 

600 X1=A*YB+X0:Y=YB+DY:X=A*Y+X0 =C=0 
610 IFY=0THENC=1:DY=-DY:Y=YB 
620 IFX <30RX> 32THENC=1 

630 IFDY>0ANDABSCX-XCTR33<3ANOABSCYCTR3- 
Y3<1THENC=2:DY=-DY 

640 IFO0THENSOUND25j 1 :A=RNDC03*SGNC-A3 : 
r=YB:X0=Xl-A*YB 

650 IFY>14THENJ CD-TR3=J CD-TR 3 + 1:GOTO100 
660 C0L0R3:PRINT@32*YB+Xl-33,5 
670 YB=Y:PRlNT@A*Y+X0+32*Y-33,î 
680 IFC=2THEN300 
690 GOTO500 

3000 COLOR] +6 ’-PRINTSXC I 3+32*YC I 3-34» "flUB 
" î :RETURN 



CAR FIGHT 

De nombreux fous du volant 
hantent les autoroutes de votre ville. 

Aux commandes d'un bolide équipé d'un canon laser, 
vous poursuivez les malfaiteurs. 



BUT DU JEU 


Vous devez amener une à une les voitures 
rebelles au centre du viseur, puis les abat¬ 
tre. Elles apparaissent d'abord dans le 
rétroviseur et ensuite devant votre pare- 
brise. Lorsqu'une voiture ennemie est 
identifiée par l'ordinateur de bord, un ca¬ 
ractère lumineux clignote. Mais attention, 
votre temps est compté. Après avoir dé¬ 
truit plus de six voitures, celles-ci ripos¬ 
tent. faites très vite une embardée pour 


les éviter Si l'une d'elles parvient à vous 
toucher, le rétroviseur s'illumine en 
rouge._ 


AU CLAVIER 


- Pour commencer, pressez un touche cla¬ 
vier. 

- Voici les différentes commandes : 

* Virages à gauche A = 2 cases (grands vi¬ 
rages) 

Z = 1 case (petits virages) 

* Virages à droite K =2 cases 


M = 1 case 

* Tir = n'importe quelle autre touche al¬ 
phanumérique du clavier. 

- En entrant le programme faites attentior 
car les caractères semi-graphiques du lis¬ 
ting correspondent aux touches à presseï 
sur le clavier. Le résultat graphique à l'é¬ 
cran est inversé. 

- Ce logiciel nécessite l’extension de lt 
Ko de mémoire vive. 


A REH COPYRIGHT TILT HiCRO 

10 C0L0R3, 1 =CLS :GOSUB9000'-GOSUB8000 

20 0=40:SC -0 : RE-6:COLOR1 :PR1NT@437. "□□□□ 

□cr ; 

25 PRINT&386,"READY" ; 

27 R$ = ltTKEY$. 

30 IF 1NKEY$ = ""THEN30 
40 SÛUND2j 9 

100 FORTinE=40000TO0STEP-10 '-C0L0R1 : p RlNT 
@386,USING"4t#««4t" ;TI|1E ; 

105 PRINT"CT 5 

110 C-0L0R4 :PR1NT@398, US1NG"«H3" ;SC; :PRIN 
T "B" î 


120 F0R1 = 1T07-RÈ'-PRINT@444-I. 5 -NEXT 

130 PRINT6453, "□■■■O" ):C0L0R7 
140 PRINT6257," > < 


150 PR INT@135j" "> 

155 PRINT0103," ”> 

157 PRINTS207 , " !l j 

160 IFABSCA3 <15THENGOSUB4000ELSEIFABSCA3 
>20THENGOSUB3000 

170 IFRNDC33=3THENGOSUB7000ELSEFORI=1T03 
00:NEXT ' 

180 IFRNDC33 =3THENGOSUB5000 
190 R$=INKEY$ 


130 



































191 REM INDISPENSABLE POUR NETTOYER LE T 
AMPON D’ENTREE 

200 IFINKEY$="A"THENA=A+2:PRINT@453,"<"J 
•GOTO500 

210 IFINKEY$="2"THENA=A+1:PRINT@453, "<"; 
•GOTO500 

220 IFINKEY$="K"THENA=A-2:PRINT@457,">" ; 
•GOTO500 

230 IFINKEY$="M"THENA=A-1:PRINT@457,">"J 
•GOTO500 

240 IF1NKEY$ <>""THENGOSUB2000 

500 IFRNDC0 3>2/'LOGCSC+23THENA=A+SGNCRNDC 

03-.53*RNDC23 

510 IFABSCA3729THENGOSUB8000 

520 GOSUB1000 

600 IFRE70THENNEXTTIME 

605 IFRE=0THENPRINT@437, "a 

610 PRINT8235, "GAME OUER";:PRINT6261,"UN 

E AUTRE PARTIÉ ? CO-N3" ; 

620 IFINKEYSO "Y"ANDINKEY$<> "N"THEN620 
630 IFINKEY$="Y"TH£N10 
700 END 

1000 IFRNDC03 <2/L0GCSC+230RCABSCA3<22AND 
RNDC53 053THENRETURN 

1010 H=8-RNDC153 :IFABSCA3>20THENH=29*SGN 
CA3-A 

1020 COLOR4:PRINT@143+H, ;:C0L0R7 

.1030 FORI = l T017STEP2 : 11=H+I : I2=H-I 
1040 IFABSC113 <7.THENPRINT6143+11," — "; 
1050 IFABSC 123 <7THENPRINT@142+I2, " — » ; 
1060 NEXT : FOR1 = 1 TDD îIFINKEY$ <>"A"ANDINKE 
ri<>"K"THENNEXT=GOTO1500 
1070 FORI=17T01STEP-2:Il=H+I=I2=H-I 
1080 J F11 <8THENPRI NT@ 1 43+ II," ** ; 

1090 1 FI2>-8THENPRINT@142+12," " ; 

1100 NEXT--RETURN 

1500 F0RI=7T08:C0L0RI: SOUND1,1 

1510 PRJNT6103, ■■■■■■■■■■■■■■■■" ; 

1520 PRINT6135, "■■■■■■■■■■■■■■■■" ; 

1530 NEXT:RE=RE-1:RETURN 

2000 FORI •=] TOI 2STEP2 :PRINT@256+I, " —" ; -P 

RINT6285-I, "—j :NEXT 

2010 F0RI=1T012STEP2:PRINT@256+1, " " ; :P 

RINT0285-Ij" 'NEXT 

2020 IFA=0THENGOSUB6000:SC=SO+1:GOSUB800 

0 

2030 RETURN 

3000 PRINT@143+29*SGNCA3-A,"*";:RETURN 


4000 PRINT6271+A,; :IFA=0THENPRINT@207 
,"U"; 

“010 RETURN 

5000 1=271+C3-RNDC23*23*CRND C123 + 13 

5010 PRINT61 j ; :RETURN 

6000 SOUND4.5:COLOR4:PRINT@271,;:RETU 

RN 

7000 C=3-RNDC23*2:H=175+32*RNDC23 =B$=CHR 
SCRNDC23+413 

2010 FORI=HTOH+14*CSTEP2*C:PRINT@I ,B$; 

7030 PRINT81," ";:NEXT 

7040 FORI=]11+7XCT0111STEP-3*C:PRINT@I," 

* 5 

7050 PRINTej," " ; :NEXT 
7060 RETURN 

8000 A=29-RNDC603=RETURN 
9000 F0RI=28992T029183:P0KEI,128:NEXT 
9005 F0RI=67T09I:PRINT@I,"o"5 -NEXT 
9010 F0RI=99T0131STEP32 :FORJ =0TO21SVEP21 
9015 PRINT0I+J, "■■■■’ ;:NEXT : NEXT 
9020 PRINT6128, "BBB" » : PRINT@156, ’oOBB" 5 
9030 FORI=]TO29:PRINT@I+160, "H" ::PRINT@I 
+288,"B"J 

9035 PRINT8I+352, "H" ;:PRINT@350-I,; :N 
EXT 

9040 FORI=lTO]0:PRINT@12è+32*I,:PRJN 
T6158+32*],; :NEXT 
9045 C0L0R6:S0UND31,1 
9080 SOUND30,1:C0L0R3 

9090 FDRI=324T0346STEP2:PRINT@I, "B” ;:SOU 

ND],1ïNEXT 

9105 PRINT6417," 


9110 PRINT6360, 


" : -PRINT6392, " 


9120 FORI=0TO3:PRINT@371+32*1,;:PRINT 
6380+32*1, ; .-NEXT 

9130 FOR] = 1 TOI000:NEXT 

9140 PRINT6354,"TIME";:PRINT@405,"123456 

" J. 

9150 FORI=0TO]4:P0RJ=3T01STEP-1:PRINT@17 
5+32*J-I,” "; 

9155 PRINT6175+32*J + I, " " ,’ -NEXT 'NEXT 
9160 C0L0R6 :PRINT6173, "□DatXJ'; 

9170 C0L0R6:PRINT@270,">";:PRINT6272,"<" 

: :C0L0R7 
9180 RETURN 
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L'ANE ROUGE 

Encore un casse-tête ! 

Celui-ci est inspiré du jeu de Taquin. 
Un bon conseil : gardez votre calme... 



AU CLAVIER _ 

Pour jouer, déplacez les pièces une à une 
en pressant la touche correspondant au 
numéro porté sur celle choisie. En entrant 
le programme, faites attention car les ca¬ 
ractères semi-graphiques du listing cor¬ 
respondent aux touches à presser sur le 


clavier. Le résultat à l'écran est inversé 
Ce logiciel rpécessite l'utilisation de l'ex 
tension 16 IfCo de mémoire vive. 


BUT DU JEU 


Vous devez passer de la configuration dé j 
départ à une configuration ou le grand 
carré, la pièce numéro 9, se trouve en bas 
au centre. C'est-à-dire déplacez, une à 
une, les pièces composants la figure du 
jeu. 


5 REn COPYRIGHT TILT HICRO 

7 CLS:F0RI=1T025:C0L0R,1:POKE30744,1 :P RI 
NT@232,"L PNE ROUGE” 

8 COLOR.0:NEXTI:COLOR,0:CLS 

10 CLS:DinJC4,5),XCin,YCin,TCllJ,Q*C« 

,Dxcn,DYcn,Fcn»Pcn 

20 COLOR^j 1 :FORI=0TO480STEP32 

30 PRINT6I j "□□□□OCXEaaODQDOODODDDDDDDDP 

□□□□” J :NEXT 

40 DATAIj 5j 3,1,1,7=1,2,7 

41 DATA4,5,3,1,3,2,1,4,2 

42 DATAI,3,1,1,5,0,2,1,9 

43 DATA4.3,1,2,2,9,2,3, 6 

44 DATA2,4,3,2,4,4,2,5,10 

45 DATA3,4,3,3,1,9,3,2,9 

46 DATA2,3,4,3,3,6,3,4,5 

47 DATAI,1,1,3,5, 11,4,1,8 

48 DATA4,1,1,4,2,8,“,3,3 
*9 DATA2,1,2,4,4,3,4,5,1 

50 DATA2,5,0,1,1,7, 1, 1,7 

51 DATA3,5,0,1,1,7,1,1,7 

60 FORI=0TO11 :READXCn,YCn,TCn,X,Y,JCX 
•Y3,X,Y,JCX,Y3:NEXT 

70 Q$(03="EN HAUT ":Q$(T3=" A GAUCHE"=0 
$C33=" A DROITE" 

80 Q$C43 = ''EN BAS 

100 FORI=0TO9:CO=96*YCI3+4*XCI3-88 

200 B=128:IFTCI3>2THENB=32 

210 P$="” : IFTCI3/2=INTCTC I 3/23THENP$=”a 

□ " 

220 FORJ=0TOBSTEP32 :PRINT@J+C0, P$-»-‘tHOl" 

;"NEXT 

230 IFP$O””THENPS= "BOBO" 

240 PRINT0CO+B+32,PS + " H BOa ' ' ; POKE28705+C. 
0,48+1 

300 NEXT ;FORI = l"0TOl 1 :C0=96*YCI3+4*XCI3-8 
8 

310 FORJ=0TO64STEP32:PRINT@CO+J, "■■■■"> ' 
NEXT 


320 NEXT 

400 IFJ C 2,53=9ANDJ C3,53=9THENPRINT@480, " 

BRAUOS"î'END 

410 PRINT0480,"?"î 

415 FORI=1TO50:R$=1NKEY$:NEXT 

420 R*=1NKEY$:IFR$<"0"ORRS>”9"THEN420 

430 PRINT0480," ";^N=UALCRS3 

500 FORI-0TO1:F0RJ=2T08STEP2 

510 X=XCI+103+J-2-3*INTCCJ-l3/33 

520 Y=YCI +103 + INTC CJ-13/33-1 

530 IF0<XANDX<5AND0<YANDY <6THENIFN=J CX, Y 

1THEN550 

540 NEXTJ:X=XCH103:Y=YC1+103 

550 DXCI3=XC11103-X :DY(I3=YCI + 103-Y 

560 NEXTI '•T=TCN3 

570 FY=2-SGNC T/2-INTCT/2 33 :FX=1.5-SGNCT- 
2.53/2 

580 FORI=0TO1:PC I 3=0 

590 IFDXCI 3+DYC13 O0THENFC13=FX: IFDXCI 3 = 
0THENF CI3 =FY 
595 NEXT 

600 IFFC03+FC13=0THEN410 
610 FORI=0TO1:PCI3=0 
620 I FF CI3 = 1THENPC13 = 1 

630 IFFCI3=2ANDFC1-13=2ANDDXC03=DXC13AND 
DYC03=DYC13THENPCI3=2 
640 NEXT 

700 IFPC03+PC13=0THEN410 

710 IFPC03=2ORPC03 OPC13 THEN800 

720 Q0=2+DXC03+2*DYC03:Q1=2+DXC13+2*DYC1 

3 

730 PRINT@384,QSCQ0 3 ; :n0S=[1ID$CQ$CQ03,4, 
13 

740 PRINTS416," OU ”i 

750 PRINT0448, Q$CQ1 3 1 ril$=niD$CQ$CQl 3,4, 

13 

760 PRINT6480,"?”! 

770 lFINKEY$<>n0$ANDINKEY5<>m$THEN770 ‘ 
780 R=0 ■ I FI NKEY$=t11 $THENR=1 
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- rci + i0j.i=i + i0 

830 IFPC I 3=2THENI=1 :Pfl3=l :&OTO810 
840 XCN3=XCN3+DXCI 3 : YCN3=YCN3+DYCI) 

850 B=1 :IFTCN3>2THENB=0 

860 P=0 : IFTCN3'2=INTCTCN.3.-'23THENP=1 

8.20 F0RX=XCN310XCNJfP:F0RT=YCN.lT0rCN3+B 

880 JCX, Y3=N:NEXT--NEXT 

900 GOTO100 


_ BUT DU JEU _ 

Vous jouez à deux. Le gagnant est celui 
qui atteind le premier une réserve de 
nourriture situé à droite de l'écran. Les 
phoques se déplacent d'une case sur la 
terre (zone blanche) et de cinq cases sur la 
mer verte si, bfen sûr, aucun obstacle ne 
gêne leur progression. Ils laissent derrière 


eux une trace, qu'ils ne pourront franchir 
par la suite, sauf en pressant le bouton du 
joy stick. Néanmoins, au cours d'une par¬ 
tie, chaque joueur ne pourra utiliser la 
possibilité de jump plus de trois fois. 

F AU CLAVIER ~~1 

Chaque joueur manipule un phoque à 

l'aide de son joy stick (8 directions - bou¬ 


ton de feu). Le départ de chaque animal 
est à gauche, en haut et en bas de l'écran. 
Ce logiciel nécessite l'utilisation d une ex- 
tesion manettes de jeu. 


LE PHOQUE 

Vous voici dans les mers Artiques, 
aux prises avec un phoque glouton. 

i arr j v £ sera | e p rem j er servi. 


290 P C R 3 = 1 :PC1-RD=0 

291 PR1NT@384, □□□□□□□□□ 1 ; :PRINT@416, 

□□□□□□CT ; 

292 PR1NT@448, :PR]NT@480,'' 

800 FORI=0TÔ1 : IFPC 13 01THENNEXT : I=0 
810 F CI3 =FX+FY-F Cil:XCI + 103=XCI +103-FCI3 
*DXCI3 

820 YCI+103=YCI+103-FCI3*DYC13:JCXC1+103 


5 REH COPYRIGHT TILT HICRO 
8 CLS :F0RI = 1T015:PRINT@232,"LE PHOQUE":P 
OKE30744,1:NEXT1 

10 DinXC13,YC13,SC13,OXC103,OYC103,SDC13 
20 CLS:nODEC13 .'C0L0R2, 1 :l = .3 
30 FORX=0TO126STEP2:FORY=0TO62STEP2 : IFRN 
DC03>.2THENGOSUB5000 
40 NEXT'NEXT: 1=0 

50 X=88:Y=3]:GOSUB5000:X=0:Y=0:GOSUB5000 
•Y=62:GOSUB5000 

60 XC03=0:YC03=0:XC13=0:YC13=63:SC03=3:S 
fl 3=3 

70 DATAI,1,1,-1,1, 0,9,9,-1,1,-1,-1,-1,0, 
9,9,0,1,0,-1 

80 FORI=0TO9:READOXCI3,OYCI3:NEXT:SDC03 = 
0:SDC13=0 

90 C0L0R6: SE TC88,313:SET C0,0 3:SETC0,633 
100 FORI=0TO1:0D=CINPC43+3XI3AND313-2]:X 
=XCI3:Y=YCI3 

110 IFOD<0THENIFSDCI3=0ANDSCI3>0THENSDCI 
3 = 1 :G0T0180ELSEGOTO170 
115 C0L0R8 : SETCX,Y3 

.120 D=0:FORJ = 1TO5 :X=X+0XC0D3 :Y=Y+0YC0D3 
130 1FX<0ORX>1270RY <0ORY>63THENO=1:X=XCI 
3•Y=YCI3 

.140. IFPOINTCX, Y3=2THEND=1 

150 IFPOINTCX,Y3=8AN0SDCI3=0THEND=1:X=XC 

13 :Y=Y CI3 


.160 IFO=0THENNEXT 

165 FORJ=XCI3TOX-OXCOD3STEPOXCOD3:SETCXC 
I3,YCI33 

162 XCI3=XCI3tOXCOD3:Y[I3=YC13+OYCOD3:NE 
XT 

120 IFSDCI3=1THENSDCI3=0:SCI3=SCI3-1 
180 C0L0R6 :SETCXCI3,YC133:SOUND 1,1 :NEXT 
200 D=0:FGRI=0TO1 : IFXCI3=88ANDYCI3=31 THE 
ND=Dh1+1 

210 NEXT: IFD=0THEN100 

220 S0UND1,5 :IFD=3THENPRINT"EX-AEQU0"; 
230 END 

5000 FORA=XTOX+1:F0RB=YT0Y+1 
5010 IFRNDC03>ITHENSETCA,B3 
5020 NEXT=NEXT:RETURN 
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TCHOUKA 

Aux prises avec des trous 
et des cailloux, à vous de démêler 
ce casse tête infernal 



BUT DU JEU 


Le terrain de jeu se compose de quatre 
trous remplis de deux cailloux et de la 
Rouma (trou de droite, qui est vide au dé¬ 
part). Le but du jeu est de métré tous les 
cailloux dans la Rouma (affichage: 

0 00 0 8 ). 

Trois cas peuvent se présenter : 

1/ Le dernier caillou de la distribution 
aboutit dans la Rouma, l'affichage s'im¬ 


mobilise. II.faut alors recommencer une 
nouvelle distribution en partant d'un trou 
quelconque. 

2/ Le dernier caillou distribué tombe dans 
un trou déjà occupé, l'affichage clignote 
sur ce trou. Repartez alors obligatoire¬ 
ment de ce trou, en ramassant tout son 
contenu. 

3/ Le dernier caillou distribué tombe dans 
un trou vide autre que la Rouma. C’est l’é¬ 
chec, la partie est finie. 


AU CLAVIER 


- Choisissez le nombre de trous utilisés 
pour une partie. Lorsque le jeu démarré, 
prenez en main tous les cailloux du trou de 
votre choix. Puis pressez la touche corres¬ 
pondant au trou de départ. Distribuez-les, 
un à un dans les trous contigus y compris 
la Rouma en allant vers la droite. S'il en 
reste, continuez la distribution à partir du 
trou n° 1. 


5 REMCOPYRIGHT TILT P1ICR0 


220 ACD1=ACDJ+1=GOSUB2000:NEXT 

8 CLS 


230 1FD=ATHEN400 

240 1FACD1=1THEN500 

10 CLS:PRlNT--PR]NT"NOnBRE DE TROUS." ;• 1NP 


250 PR1NT0352,"DEPART II1P0SE" j ’PRINT@384 

UTA :IFA<4ORA>9THEN10 


,"’C’ POUR CONTINUER" ; 

20 IFfV2> 1NTCA/2)THENA=A--1 


255 GOSUB3000 

30 CLS:FORB=0TOR-1 :ACB)=fV2 :NEXT :ACA1=0: 


260 GOSUB5000:1F1NKEYS<>"C"THEN260 

GOSUB2000 


270 DS="-":PR1NT@352," "i 

40 PR*=" J":PRINT8 


280 PR1NT6384," ”;:G0T0 

225j LEFT$(PR*j 3*fU ; 


200 

42 PRINT042, "JEU DU TC.HOUKA" 


400 IFACAK>A*A/2THEN100 

100 PRINT@352,"TROU DE DEPART? Cl -";A;" 


410 PRINT0352,"GAGNE : " ;P$;:END 

1”; :GOSÜB3000 


500 PRINT0352,"LE TROU D’ARRIOEE EST UID 

110 IF INKEY$="''THEN1 10 


E" ; 

120 DS=INKEYS :D=UALCD$D-1:1FD<0ORD>A-]TH 


510 PRINT0384,"PERDU:";P$;:END 

•EN1.10 


2000 FORB=0ÏOA:PRINT@193+3*BiACB];:NEXT 

130 PR1NTS352," 


2010 PRINT0192+3*Aj">";:RETURN 



3000 FORn=lTÜ50:D4=INKEY$:NEXT:RETURN 

140 PRINT0384," "î 


4000 K=D :F0RB=1 T05 :GOSUB5000 ’-NEXT ; RETURH 

150 IFACDD=0THENPRINT@384,"CE TROU EST o 


5000 K1=28864+3*K:FOR1=1T03:POKEKl-i-l, PEE 

IDE" 1 '.GOTO 100 


KCKl + H-64 =NEXT 

200 PS=PSiDS :GOSUB4000 : E=ACD3:ACDJ=0 =G0S 


5010 F0RJ=1TO80:NEXÎ 

UB2000 


5020 PRINT@193+3*K,ACK11:FORJ=1TO100:NEX 

210 F0RC=1 TOE :D=D-A+CA+n*SGNCft-DJ :G0SUB 


T 

4000 


5030 RETURN _ ■ 

-=£ZS;: :.t- ---- 





















r. 


LYNX 


GOURMAND 

Un glouton s'est introduit 
dans votre champ de glace à la fraise. 

A vous de limiter les dégâts de ce vorace 
trop indiscipliné. 



_ BUT DU JEU _ 

Votre mission consiste à prendre le gour¬ 
mand en charge dans le but de le conduire 
|vers sa petite boîte rouge. Croyez-moi il va 


vous falloir du doigté et de la précision... 
surtout pour l'y maintenir enfermer. 

AU CLAVIER 

- Pour accélérer ou ralentir dans le sens 


désiré, utilisez les flèches. 

- Pour enfermer le gourmand dans sa 
boîte, validez avec la barre «espace». 


100 

CODE 

00 

00 

00 

00 

00 

01 

03 

07 

0F 

0F 

00 

00 

101 

CODE 

00 

00 

00 

00 

00 

20 

30 

38 

3C 

3C 

00 

00 

102 

CODE 

0F 

0F 

07 

07 

03 

03 

03 

01 

01 

0 1 

00 

00 

103 

CODE 

3C 

3C 

38 

38 

30 

30 

30 

20 

20 

20 

00 

00 

104 

CODE 

01 

03 

07 

1F 

05 

07 

06 

03 

0F 

1F 

00 

00 

105 

CODE 

20 

30 

38 

3E 

28 

38 

18 

30 

3C 

1E 

00 

00 

106 

CODE 

3F 

3F 

3F 

2F 

2F 

0F 

0F 

06 

06 

1E 

00 

00 

107 

108 
109 

CODE 3F 1F 
PROC INIT 
REPEAT 

3F 

1D 

3D 

3C 

3C 

18 

18 

1E 

00 

00 


110 
111 
1 12 
113 
1 14 
1 15 
116 
117 
1 18 
11? 
120 
121 
122 

123 

124 

125 
12 6 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 


PROC GL 
PROTECT 6 
REPEAT 
PROC MM 
PRINT e 
IF T>399 
UNTIL 2=1 
PROTECT 0 
PROC AR 

UNTIL NOTLEFT$<R$, 1)="0" 

CLS 

END 

DEFPROC INIT 
PROTECT 0 
MDU 1,6,2,1,4 


107,101;CHR*<24>;T;CHRS<32> ;CHR*<25> 
THEN LET 2=1 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


@ 

e 

e 

@ 

@ 


40,30;CHR*C24>;"LE GOURMAND";CHR*<25>; 

10,130;"Mous devez guider le gourmand vers 
10, 150 ;"1'endroit délimité par le cadre 
170 


Il -faut traverser un champ de 


LET 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


G=GETN 


10 . 

10,190;"a la -fraise qui attirent 
10,210 ;"tiblement le gourmand."; 


rouge ; 
g1 aces"; 


x rresis-' 


e 

@ 

e 

e 

e 

e 

e 

e 


10,40;"Mous augmentez ou diminuez la 
10,60;"en utilisant les 4 fléchés du 
10,80;"Mous validez son arrivée avec 
10,100;"barre d'espace."; 

10,120 ;“Attention le gourmand rebondit 
10,140; 


vitesse" 
clavier. 1 
1 a" ; 


'certains cotes et ralentit 
10,160 ;“avoir mange une glace."; 
10,180;"Le temps joue contre vous 


sur 
apres"; 
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141 LET G=GETN 

142 LET X=8G,Y=11,T=Q,t=2,v=0,w=Q,Z=0,B=0,N=8,8=0 

143 DIM X<N),Y<N),Q<N) 

144 DPOKE GRAPHIC,LCTN(100) 

145 FOR 1=1 TO 11 

146 READ A 

147 LET G*=G*+CHR*<A> 

148 NEXT I 

149 FOR 1=1 TO 9 

150 READ A 

151 LET B*=B*+CHR*(A) 

152 NEXT I 

153 FOR 1=1 TO 7 

154 READ A 

155 LET E*=E*+CHR*<A> 

156 NEXT I 

157 DATA 1,2,128,130,22,22,10,1,4,132,134,1,2,136,138,22,22,10,140,142,32,32,22, 
22,10,32,32 

158 ENDPROC 

159 DEFPROC GL 

160 LET X=80,Y=11,T=0,S=0,v=0,w=0,Z=0 

161 CLS 

162 INK 0 

163 MOME 39,9 

164 DRAW 232,9 

165 DRAW 232,201 

166 DRAW 39,201 

167 DRAW 39,9 

168 INK GREEN 

169 FOR 1=1 TO N 

170 LET X<I)=RAND< 150)+45 

171 LET Y<I>=RAND< 150) + 11 

172 LET Q<I)=-RAND< 6)-1 

173 PRINT @ X(I)X0.5,Y<I):CHR*<21)+G*+CHR*<20); 

174 NEXT I 

175 MDU 21,1,3 

176 MOUE 200,200 

177 DRAW 200,168 

178 DRAW 231,168 

179 MDU 20 

180 PRINT @ 20,101;CHR*<24>;"Record ”;B;" 

181 PRINT G 100,101 ;"T ";CHR*<25) ; 

182 ENDPROC 

183 DEFPROC MM 

184 LET T=T + 1 ,E=Q,F=0 

185 FOR 1=1 TO N 

186 LET M=X <I)-X,W=Y(I)-Y 

187 LET C=UXU+WXW 

188 IF C<6 THEN LET C=6,v=vX0.5,w=0.5 

189 , IF C=6 THEN BEEP 100,200,63 

190 LET e=Q<I)XU/C 

191 LET -f=Q< I ) XW/C- 

192 LET E=E-e,F=F—f 

193 NEXT I 

194 IF KEYN=32 THEN LET Z= 1 

195 LET v =v+< INP(-^0980) =223)-< INP<&«0980) =251) 

196 LET w=w+<INP(^0080)=223)-(INPC&0080)=239) 

197 LET v=v+EX t,x=X+v* t 

198 LET w=w+ F% t,y=Y+w^ t 

199 PRINT @ XXO.5,Y ;E$; 

200 LET X=x,Y=y 

201 IF X>220 THEN LET X=40 

202 ELSE IF X<40 THEN LET X=40 

203 IF Y) 180 THEN LET Y=10 

204 ELSE IF Y<10 THEN LET Y=10 

205 PRINT 0 XX0.5,Y;B*; 

206 ENDPROC _ 
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207 DEFPROC AR 

208 LET S=INT(XXY/T> 

209 IF T>399 OR <X<200 OR Y<168) THEN LET S=0 

210 PRINT e 60,101;CHR*<24) ;"SCORE "; S ;CHR$<25) ; 

211 PRINT g 40,235;"Un autre essai"; 

212 INPUT R* 

213 IF NOTLEFT*<R*,1)="0" THEN ENDPROC 

214 IF B<S THEN LET B=S 

215 ENDPROC 


# 


MOUTONS 

Vétérinaire, vous devez 
juguler l'épidémie qui décime 
les troupeaux de moutons 
de la région 



moutons malades (qui changent de cou- - Déplacez la seringue à l'aide des flèches 


100 CODE 00 03 0F 3F 2F OF 07 02 02 02 00 00 

110 CODE 00 3F 3F 3F 3F 3F 3F 00 00 00 00 00 

120 CODE 00 00 3C 3E 3E 36 20 20 20 20 00 00 

130 CODE 0E 04 OA OA OA OA OA OE 04 04 

140 REM -MOUTONS-1984 
150 DIM M<79) 

160 LET h= 18 , v= 10 ,N= 18,L= 1, Q=0 

170 PROTECT 0 

180 VDU 1,0,2,4,4 

190 DPOKE GRAPHIC,LCTN<100) 

200 LET A*=CHR*<128)+CHR*<130>+CHR*<132),B*=CHR*<1)+CHR*<2)+CHR*<134) 

210 REPEAT 

220 PROC MOUTONS 

230 PROC PR 

240 LET H= 18 , V= 10 , C=- 1, S=0 ,T=0 
250 VDU 1,0,2,4 

260 PRINT S 2,2;CHR*<24);L;CHR*<25); 

270 REPEAT 

280 PROC MAL 

290 LET D=INP<Î*0980> ,E=INP<&c0080> 

300 LET H=H+<<D=223)-<D=251))X12,V=V+<<E=223)-<E=239>>X20 

310 IF V>211 THEN LET V=10 

320 ELSE IF V<9 THEN LET V=210 

330 IF H>114 THEN LET H=6 

340 ELSE IF H<6 THEN LET H=114 

350 IF D=247 THEN PROC VACCIN 

360 PRINT @ h,v;" "; 

370 PRINT 0 H,V ; B*; 

380 LET h=H,v=V 

390 UNTIL S+T>65 

400 LET N=N-2,L=L+1 

410 BEEP 100,500,50 

420 LET Q=Q+S 
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430 PAUSE 10000 
440 UNTIL L>3 

450 PRINT S 20,220 ;"SCORE FINAL VACCINES"; 

460 LET I=GETN 
470 END 

480 DEFPROC VACCIN 

490 LET •J=< H-15) DIV 12+8X<<V-10) DIV 20) 

500 IF J<0 OR J>79 THEN ENDPROC 
510 IF M(J)< 2 OR M( J)>7 THEN ENDPROC 
520 LET M< J)=0 ,S=S+1 
530 INK 7+RAND<2) 

540 PRINT @ 15+ ( J MOD 8)X12,20X(<J DIV 8) + l);A*; 

550 PRINT @ 49,240;CHR*< 1)+ CHR*<2> ; S ; 

560 ENDPROC 

570 DEFPROC MAL 

580 LET C=(C+1) MOD 80 

590 LET X= 15+ <C MOD 8)X 12,Y=20X<<C DIV 8) + 1) 

600 IF M<C) > 1 THEN LET M<C)=M(C) + 1 

610 IF M(C)=1 THEN LET M<C)=1+<RAND<20) DIV N) 

620 IF M<C)<>2 THEN GOTO LABEL A 

630 INK MAGENTA 

640 PRINT 6 X,Y ;A$; 

650 LABEL A 

660 IF MCOOS THEN ENDPROC 
670 PRINT Ê X,Y;" " ; 

680 LET T=T + 1 

690 PRINT S 97,240;CHR*<1)+CHR*<2>;T; 

700 ENDPROC 

710 DEFPROC PR 

720 VDU 1,5,2,1 

730 FOR 1=230 TO 240 STEP 10 

740 PRINT @ 0,1;CHR*<30); 

750 NEXT I 

760 PRINT @ 2,115;CHR$< 24) ;"EPI DEMIE";CHR*(25) ; 

770 PRINT @ 40,230 VACCINES MORTS"; 

780 PRINT 6 46,240;CHR*<2>+CHRS<4>;" ”; 

790 PRINT @ 94,240 ;CHR$< 2)+CHR$(4) ;" "; 

800 ENDPROC 
810 DEFPROC MOUTONS 
820 FOR J=0 TO 79 
830 INK 7+RAND(2) 

840 LET M< J) = 1,X=15+ < J MOD 8)K 12,Y=20X< < J DIV 8) + 1) 
850 PRINT S X,Y;A*; 

860 NEXT J 
870 ENDPROC 






r 


BEYROUTH 



Vous volez en rase mottes au-dessus de Beyrouth. 
Ce n'est pas très légal certes. 



mais nous fermons les yeux. Par contre, ouvrez grands les vôtres 
et prenez garde à votre ombre car celle-ci 
peut vous trahir. 


_ BUT DU JEU _ 

A bord de votre coucou, rasez au plus près 
les immeubles. Évitez les plus élevés, si¬ 
non... Vous aurez la ressource de monter 
à un niveau où la sécurité est totale, mais 


au prix d'une consommation de carburant 
effarante. 


_ AU CLAVIER __ 

Pour les déplacements, utilisez les flèches 
-*-et-^ 


Pour monter temporairement au niveau 
de sécurité (niveau de vol 2) utilisez la 
flèche! 


100 

CODE 0 1 86 0C ED 41 3E 00 

D3 87 

04 ED 

41 3E 00 D3 87 C9 

1 10 

CODE 00 00 00 00 00 00 07 

0F OF 

OF 00 

00 

120 

CODE 00 01 03 03 03 03 3F 

3F 3F 

3F 00 

00 

130 

CODE 00 00 20 20 20 20 3F 

3F 3F 

3F 00 

00 

140 

CODE 00 00 00 00 00 00 30 

38 38 

38 00 

00 

150 

CODE 03 03 03 03 1F 3F 00 

00 00 

00 00 

00 

160 

CODE 20 20 20 20 3C 3E 00 

00 00 

00 00 

00 

170 

CODE 00 00 00 00 00 00 00 

07 OF 

OF 00 

00 

180 

CODE 00 00 00 00 0C 0C 0C 

3F 3F 

3F 00 

00 

190 

CODE 00 00 00 00 00 00 00 

38 3C 

3C 00 

00 

200 

CODE 0C 0C 0C 0C 3F 3F 00 

00 00 

00 00 

00 

210 

CODE FF FF FF FF FF FF FF 

FF FF 

FF 00 

00 

220 

PROC INIT 




230 

FOR N=0 TO 3 




240 

WINDOW 3, 123,0,255 




250 

FOR 1=0 TO 63 




260 

LET P<I)=0 




270 

N EXT I 




280 

CCHAR &2094 




290 

DPOKE GRAPHIC,LCTN( 1 10) 




300 

LABEL A 




310 

CLS 




320 

PRINT G 20,50; 




330 

INPUT "Quantité de carburant (<500)": 

F 

340 

IF F>500 THEN GOTO LABEL A 



350 

PROTECT 0 




360 

PAPER BLACK 




370 

CLS 




380 

PROTECT CYAN 




390 

REPEAT 




400 

PROC GC 




410 

LET D=< D-2) MOD 64 




420 

LET z=D DIV 8,Z=<D~8Xz>*32 



430 

POKE L+6,z 




440 

POKE L+13,Z 




450 

LET V=<INP<^0080)=239) 




460 

LET F=F-1-5XU,d=d+ 1 ,Y=DX4-C 



470 

IF V=0 THEN LET A*=B$ 




480 

ELSE LET A*=C* 




490 

LET X=X+3*< INP<«*0980>=223>-3*(INP<& : 0980>=251> 

500 

IF X<6 THEN LET X=6 
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510 ELSE IF *>110 THEN -T X=11Q 

520 PRINT @ x,y ;E$; 

530 CALL L 

540 PRINT @ X,Y;A$; 

550 LET M=C D-C/4) MOD 64 

560 IF CX>PCM)-8 AND X<PCM)+6> OR F<=0 THEN PROC CO 

570 LET x=X,y=Y 

580 UNTIL F<=0 

590 NEXT N 

600 END 

610 DEFPROC INIT 
620 PROTECT 0 

630 DIM A*< 15) ,B*<12) ,C*C 15) ,G*<10) ,P*<9) ,D*C10) ,P<63) 

640 LET L=LCTNC100),D=0,C=80,X=60,d=0,x=X,y=C,s=0,S=0 

650 UDU 2,1 , 1,7,4 

660 FOR 1=0 TO 14 

670 READ A 

680 LET C*=C*+CHR*CA) 

690 NEXT I 

700 FOR 1=0 TO 11 

710 READ A 

720 LET B*=B$+CHR*CA) 

730 NEXT I 

740 FOR 1=0 TO 9 

750 READ A 

760 LET G*=G*+CHR*CA) 

770 NEXT I 

780 FOR 1=0 TO 8 

790 READ A 

800 LET P*=P$+CHR*CA) 

810 NEXT I 

820 LET E$=CHR$C32)+CHR$< 32) 

830 LET F*=E*+E*,E*=F*+CHR*C22)+CHR*C22)+CHR*C22)+CHR*C10)+E* 
840 DATA 1,2,128,130,132,134,22,22,22,22,10,32,136,138,32 
850 DATA 1,2,140,142,144,22,22,22,10,32,146,32 


860 

DATA 1,5,148,148,21,1,1 

, 148,148 

870 

DATA 1,5,148,148,21,1,1 

,148,20 

880 

ENDPROC 


890 

DEFPROC GC 


900 

PROTECT RED 


910 

PRINT 6 P<D),D*4;" 

" 5 

920 

LET PCD)=RAND< 110) ,R=RAND< 3) 

930 

IF R=0 THEN LET A*=P* 


940 

ELSE LET A*=G* 


950 

PRINT @ PCD),DX4;A»; 


960 

LFT PCD+1)=R 


970 

PROTECT CYAN 


980 

ENDPROC 


990 

DEFPROC CO 


1000 

IF FOO THEN GOTO LABEL C 

10 10 

IF C=1 THEN ENDPROC 


1020 

IF PCM+ 1)=0 THEN GOTO 

LABEL 

1030 

LABEL C 


1040 

FOR 1=5000 TO 5200 


1050 

SOUND I,20 


1060 

NEXT I 


1070 

PROC FIN 


1080 

ENDPROC 


1090 

LABEL B 


1 100 

LET F=F+ 10 


1 1 10 

IF F> 1000 THEN LET F= 

1000 

1 120 

ENDPROC 


1 130 

DEFPROC FIN 


1 140 

PROTECT 0 


1 150 

UDU 2,1,4 


1 160 

POKE L+13,0 


1 170 

POKE L+6,0 


1 180 

CALL L 



140 
















1190 PRINT @ 30,20;“Fuel ";F;" Score ";d; 

1200 PRINT @ 30,40;"Dernier score ";s; 

1210 LET s=d,F=0 

1220 IF S<d THEN SWAP S,d 

1230 PRINT @ 30,60 ;"Mei11eur score ";S; 

1240 PAUSE 30000 

1250 ENDPROC 

■ 

# 

PAPILLON 



C'est le printemps ! 

Les papillons virevoltent de fleur en fleur. 

On se sent des ailes et le nectar vous chatouille les antennes. 
Mais dans ce paradis terrestre 
le monstre est à l'affût. 



|_ BUT DU JEU _[ 

Il faut vous poser sur une des fleurs, en 
évitant de vous faire avaler par le camé¬ 
léon qui, en dépit de sa discrétion, est 
nanti d'une langue fort dangereuse. 
Faites également attention aux coups de 


vent annoncés par un bip sonore, ils ris¬ 
quent de vous déporter et de vous faire 
courir de grands dangers. 

AU CLAVIER 

- Dirigez le papillon avec les touches— — 

- Actionnez «Return» pour remonter en ca¬ 


tastrophe. 

- Appuyez sur la barre «espace» pour vous 
poser sur une fleur. 


100 

CODE 

00 

00 

07 

0F 

0F 

0F 

07 

03 

03 

00 

00 

00 

10 1 

CODE 

00 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

2F 

0F 

00 

00 

102 

CODE 

00 

20 

20 

30 

38 

3C 

3C 

38 

20 

00 

00 

00 

103 

CODE 

00 

03 

03 

0F 

IB 

37 

2F 

3D 

1F 

06 

00 

00 

104 

CODE 

00 

2B 

2B 

3F 

3F 

3F 

3F 

2B 

0? 

00 

00 

00 

105 

CODE 

00 

20 

20 

38 

2C 

36 

3B 

1E 

3C 

30 

00 

00 

106 

CODE 

00 

00 

00 

06 

0E 

0F 

06 

03 

00 

00 

00 

00 

107 

CODE 

00 

0E 

3F 

3F 

3E 

IC 

19 

3E 

08 

08 

00 

00 

108 

CODE 

00 

00 

00 

08 

18 

30 

20 

00 

00 

00 

00 

00 

10? 

CODE 

03 

0F 

17 

17 

1F 

3F 

07 

0F 

0F 

0F 

00 

00 

1 10 

CODE 

00 

20 

10 

10 

38 

3C 

00 

2F 

2? 

25 

00 

00 

111 

CODE 

1F 

1F 

1F 

1F 

3F 

3F 

3F 

1F 

0F 

07 

00 

00 

1 12 

CODE 

31 

31 

31 

31 

39 

3? 

3? 

21 

22 

3C 

00 

00 


113 PROTECT 0 

114 DPOKE GRAPHIC,LCTN(100) 

115 LET B*=CHR*<1)+CHR*<6)+CHR*<134)+CHR*<136)+CHR*<138) 

116 LET P*=CHR*<1)+CHR*<5>+CHR*<128)+CHR*<130)+CHR*<132) 

117 LET F$=CHR$< 1) +CHR$( 7) +CHR$< 140) +CHR$( 142) +CHR$( 144) 

1 18 LET C*=CHR*<1)+CHR*<3> +CHR*<146)+CHR*<148)+CHR*<22) +CHR*(22) +CHR*<10)+CHR*<1 
50)+CHR*<152) 

11? LET E*=CHR*<32)+CHR*<32)+ CHR*<22)+CHR*<22)+CHR*<10)+CHR*<32)+CHR*<32) 

120 LET R=5,e=0 

121 UDU 1,0,2,1,4 

122 PROC PRES 

123 REPEAT 

124 LET e=e+ 1 

125 PRINT @ 50,110;CHR$(24);"essai ";e;CHR*<25); 

126 LET X=65,H=10,x=X,h=H,d=5,F=TRUE,l=5,m=l,a=0,b=0,M=0,U=0 

127 UDU 21 

128 FOR 1=0 TO 10 

129 PRINT @ 10 + RAND < 100) , 5+ (RAND < 3)XI) ; P$ ; 

130 NEXT I 


► 


















131 

VDU 20 


132 

INK 4 . 


133 

FOR 1=0 TO 4 


134 

MOUE 3,205+1 


135 

DRAW 255,205+1 


136 

N EXT I 


137 

INK 1 


138 

FOR 1=0 TO 2 


13? 

PR INT S 40+ 20 KI , 198 ; CHR$< 21) +F'$-+CHR$< 20) ; 


140 

N EXT I 


141 

REPEAT 


142 

PROTECT 4 


143 

PROTECT 4 


144 

LET A=RAND<12) 


145 

IF A=1 THEN PROC VENT 


146 

LET D=INP<&0980> ,E=INP<k0080> 


147 

LET X=X+< <D=223>-<D=251))X4+<RAND<4>-2) 


148 

LET H=H+d-(E=239) X7 


149 

IF D=247 THEN LET H=H-20 


150 

PRINT @ x,h ;CHR$<32)+CHR$<32)+CHR$<32) ; 


151 

IF X>=108 THEN LET X=4 


152 

IF X<=0 THEN LET X=4 


153 

PRINT S X,H;B*; 


154 

PRINT @ m,185sE$; 


155 

IF 1)110 THEN LET 1=5 


156 

PRINT @ 1 ,135 ;C$; 


157 

PROC L6 


158 

LET m=1 


159 

LET h=H,x=X,1=1+5 


160 

IF H>195 THEN LET F=FALSE 


161 

IF KEYN=32 THEN LET F=FALSE 


162 

UNTIL F=FALSE 


163 

PAUSE 20000 


164 

PROC FIN 


165 

PRINT Q 3,230; 


166 

UNTIL e=R 


167 

END 


168 

DEFPROC FIN 


169 

PROTECT 0 


170 

CLS 


171 

IF M=1 THEN PRINT @ 20,60;"Le caméléon a mange le 

papi11 on"; 

172 

IF M=1 THEN GOTO LABEL B 


173 

IF HC200 AND H>190 AND X MOD 20>=0 AND X MOD 20<19 

THEN GOTO LABEL A 

174 

PRINT @ 20,60;"Le pauvre papillon n'a pas 


175 

PRINT @ 20,80 ;" réussi a se poser sur la -fleur." 


176 

GOTO LABEL B 


177 

LABEL A 


178 

PRINT 0 20,100 ;"BRAVO LE PAPILLON S'EST BIEN POSE 

H . 

J 

179 

LABEL B 


180 

PAUSE 30000 


181 

CLS 


182 

ENDPRÛC 


183 

DEFPROC VENT 


184 

BEEP 50,1000,63 


185 

PRINT @ X,H ;CHR*(32)+ CHR*(32)+ CHR*< 32) ; 


186 

IF X>60 THEN LET X=X+10 + <RAND<10) + 1) 


187 

ELSE LET X=X-10-(RAND< 10) + 1) 


188 

IF X>108 THEN LET X=4 


189 

IF X<4 THEN LET X=X+80 


190 

ENDPROC 


191 

DEFPROC PRES 


192 

VDU 24 


193 

INK 6 


194 

PRINT @ 40,30 ;"PAPILLON"; 


195 

VDU 25 


196 

PRINT @ 30 ,.28; B*; 


197 

PRINT S 60,80;B*; 


198 

PRINT @ 10,110;"Vous devez poser le papillon sur une"; 
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f 


19? 
200 
20 1 
202 

203 

204 

> S" 

205 

206 

207 

208 
20 ? 
210 
211 
212 

213 

214 

215 

216 

217 

218 
21 ? 
220 
221 
222 


6 

0 

e 

@ 

@ 

@ 


10,120;"des fleurs.Il est guette par un came-"; 

10,130 ; " 1 eon a vous d'eviter sa langue."; 

10,140 ; " En tapant sur RETURN,1e papillon"; 

.10 , 150 ; "remonte rapidement."; 

10,160;"I1 faut lutter contre le vent."; 

170;"Pour le déplacement utiliser: ";CHR*<123)+CHR*<32>+CHR*<124 


10 


0 
e 
e 
e 

=GETN 


PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PRINT 
et"; 

PRINT 
PRINT 
PRINT 
PRINT 
LET G- 
CLS 

ENDPROC 
DEFPROC LG 
LET a=l*2+5,b=X*2,V 
MOUE a,185 
DRAW a,<v> 

INK 1 
MOVE a, U 
DRAW a,185 
INK 6 

IF a>=b AND a<=b+18 
ENDPROC 
PRINT 0 m, 195;CHR*<32> ; 


10,180;"pour ralentir la descente :";CHR*<125); 
10,190;"Quand le papillon est pose taper"; 
10,200;"sur la barre d'espace"; 

10,220 ;"Taper sur le clavier pour jouer"; 


100 


AND V<=H THEN LET F=FALSE,M=1 




LES FOLLES HAIES 

Bientôt les Jeux Olympiques. 

Avant d'affronter les plus grands athlètes, 
entraînez-vous. Votre stage de mise en condition 
commence avec le saut de haies. 


BUT DU JEU 


Choisissez votre distance et entraînez- 
vous sérieusement. Vos temps sont enre¬ 



gistrés, il faudra jouer contre la montre I - Pour ralentir appuyez sur 

AU CLAVIER- —Pour sauter,appuyez sur «Return» 


Pour accélérer appuyez sur 


100 

CODE 

00 

01 01 00 00 03 07 05 05 05 00 00 

1 10 

CODE 

00 

30 30 30 20 38 38 38 38 3F 00 00 

120 

CODE 

01 

01 01 03 07 3C 20 00 00 00 00 00 

130 

CODE 

30 

30 38 3C 0E 06 02 02 02 03 00 00 

140 

CODE 

00 

00 00 00 00 01 02 04 08 00 00 00 

150 

CODE 

38 

38 IA 12 3A 3E 38 38 38 38 00 00 

160 

CODE 

00 

00 00 00 01 01 02 02 04 06 00 00 

170 

CODE 

38 

3C 3E 33 21 02 04 08 04 00 00 00 

180 

CODE 

00 

00 00 00 00 00 00 00 00 00 

190 

DPOKE 

GRAPHIC.&01D4 

200 

210 

PROTECT 0 
VDU 1,4,2 

,1,4 

220 

LET X= 

10, 

Y=?0,x=X,S=0,d=0,C=2,T=0,A=0,C=0 

230 

PRINT 

0 

40,15;CHR*<24>;"COURSE DE HAIES";CHR*<25); 

240 

PRINT 

0 

10,80;"Pour sauter les haies tapez sur"; 

250 

PRINT 

0 

10,100;"RETURN,si vous voulez accélérer"; 

10,120 ;"ou ralentir utilisez les fléchés"; 

260 

PRINT 

0 

270 

PRINT 

0 

10,140 ;"horizontal es."; 
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280 

PRINT @ 10", 220 ; "Taper sur le clavier pour jouer"; 


290 

LET G=GETN 


300 

FOR 1=0 TO 60 STEP 20 


310 

PRINT G 10,80+1 ;CHR*.<30) ; 


320 

N EXT I 


330 

PRINT G 10,220;CHR*<30>; 


340 

FOR J=0 TO 3 


350 

FOR 1=0 TO 8XJ*J 


360 

PRINT G RAND<125) ,Y+J*10 ;CHR*<248) ; 


370 

N EXT I 


380 

N EXT J 


390 

INK 7 


400 

MOUE 3,131 


410 

DRAW 255,131 


420 

FOR 1=0 TO 100 STEP 20 


430 

PRINT G 10+1 ,64;CHR*<24)+CHR*<73)+CHR*<25) ; 


440 

N EXT I 


450 

MOUE 3,143 


460 

DRAW 255,143 


470 

LET Y=90 


480 

FOR J=0 TO 3 


490 

LET X=40+20XJ 


500 

UDU 1,2,2,1.24 


510 

PRINT G X,Y;CHR*<73); 


520 

UDU 25 


530 

N EXT J 


540 

LABEL D 


550 

PRINT 0 3,220 ;"Di stance choisie (multiple de 100)"; 


560 

INPUT L 


570 

PRINT G 3,220;CHR*<30); 


580 

IF <L MOD 100)00 THEN GOTO LABEL D 


590 

DPOKE GRAPHIE,LCTN<100) 


600 

LET X=4,Y=176 


610 

LET C*=CHR*< 128)+CHR*< 130)+CHR*<22)+CHR*<22)+CHR*<10) +CHR*<132)+CHR*< 

134),D* 

=CHR*<136)+CHR*<138)+CHR*<22)+CHR*<22)+CHR*<10)+CHR*<140)+CHR*<142) 


620 

LET E*=CHR*<144)+CHR*<144)+CHR*<22)+CHR*<22)+CHR*<10)+CHR*<144)+CHR*< 

144) 

630 

PROTECT 2 


640 

INK 7 


650 

REPEAT 


660 

LET T=T + 1 


670 

LET D=INP<k0980> 


680 

LET U=U+(D=223)-(D=251),X=X+U 


690 

IF X>114 THEN PROC EC 


700 

IF D=247 THEN PROC SAUT 


710 

PRINT G x , Y ; E$ ; 


720 

PRINT G X,Y ;C$; 


730 

PAUSE 1000 


740 

PRINT G X,Y;E*; 


750 

PRINT G X+U,Y;D*; 


760 

LET x=X+U 


770 

UNTIL d=L 


780 

IF d=L THEN PRINT G X+U,Y;E*; 


790 

•IF d=L THEN PAUSE 20000 


800 

PROTECT 0 


810 

UDU 1,7,2, 1,4 


820 

PRINT G 40,5;CHR$< 24) ;"RESULTATS";CHR*< 25) ; 


830 

PRINT G 10,60 ;"Vous avez couru ";L;" métrés en"; 


840 

PRINT G 40,70;M;" mn ";m;" s"; 


850 

PRINT G 10,80 ;"Vous avez saute " ; 0 . 1X S ; " haies sur “;0.04Xd; 


860 

PRINT G 10,90;“Moyenne par tour: ";INT(T/<0.0l*d));CHR*<32);■s"; 


870 

PRINT G 3,230,; 


880 

PROTECT 0 


890 

END 


900 

DEFPROC SAUT 


910 

PRINT G X,Y ;E#; 


920 

LET X=X+5,Y=Y-22,T=T+1 


930 

IF X> 117 THEN LET X=4 


940 

PRINT G X,Y;C*; 
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950 LET A=<X-5) MOD 20 

960 IF A<18 AND A>12 THEN LET S=S+10 

970 PRINT @ X,Y}Et ; 

980 LET X=X+5,Y=Y+22 

990 IF X>117 THEN LET X=4 

1000 PRINT @ X,Y ;Dt j 

1010 IF X MOD 20<=2 OR X MOD 20>=17 THEN BEEP 100,200,63 

1020 ENDPROC 

1030 DEFPROC EC 

1040 PRINT @ X,Y ; Et j 

1050 LET X=4,d=d+100 

1060 PRINT @ 8,20;CHRt<24) ; d ; " m";CHRt<25) ; 

1070 PRINT @ 3,220 ;"SCORE :"; S; 

1080 LET M=T DIV 60,m=T MOD 60 

1090 PRINT @ 40,220;“TEMPS! ";M; n mn 

1100 PRINT 8 80,220;m;" s “; 

1110 ENDPROC 
1120 NEXT I 
1130 NEXT J 
1140 ENDPROC 


ORIC1 


LIGHT TRACK 


Vous prenez les commandes d'un vaisseau spatial 
très étrange. En effet, son réacteur 
laisse derrière lui une traînée de fumée radio-active. 


BUT DU JEU 



Vous pourrez jouer soit seul contre l'ordi¬ 
nateur, soit contre un adversaire humain. 
Le but du jeu est simple, vous devez, le 
plus rapidement possible, encercler votre 
adversaire en évitant la trace du joueur 
concurrent, les cercles à l'écran et les li¬ 
mites du jeu. Mais attention I La première 
collision de l'un ou de l'autre joueur est fa¬ 


tale au maladroit. Vos réflexes seront-ils 
assez rapides ? _ 


AU CLAVIER 


- Ce jeu se commande au clavier 

- Avec deux joueurs : joueur de droite ; 

* L = haut 

* . = bas 

* ; = gauche 

* ' = droite 


joueur de gauche : 

' A = haut 

* Z = bas 

* D = droite 

* S — gauche 

- Avec un joueur contre l'ordinateur, il 
faut prendre les commandes de gauche 
( A.Z.D.S ). 


0 REI-t COPYRIGHT TILT-HICRO 


65 IF K$="P" THEN J=0:K=-1 

2 J=-l :Q=1 


?0 IF K$="." THEN Q=0=W=1 

3 P0KE 618;10 


75 I'F K$="Z" THEN J=0:K=1 

5 G0SUB 400 


80 X1=X1+J:Y]=Y]+K 

10 Xl=110:ïl=100:X2=130:Y2=Yl 


82 IF P0INTCX1j Y13 =—1 THENC=1 :GOTO800 

20 1FR=]THEN SOUND 1,CXO+Yl+X2D*100,9 


85 CURSET XI,Yl,1 

25 IF G= 1 ANDPOMTCXO+A, Y0+B)=-1 THENC=0 


90 1F G=1 THEN 600 

•GOTO 800 


100 X2-X2tQ :Y2=Y2+W 

28 L=L+1 


105 IF P0INTCX2,Y2I=-1 THENC=2 :GOTO800 

30 K$=KEY$ 


110 CURSET X2,Y2,1 

35 IFK$="" THEN 80 


.120 GOTO 20 

40 IF K$=" •' " THEN Q=1 :U=0 


300 REM == ERREUR ORDINATEUR == 

45 IF KS="D" THEN J=1:K=0 


305 H=INTCRNDm*2] : IFH=0THENS=-1ELSES=1 

50 JF K$=”!" THEN Q=-):W=0 


3)0 IF A O 0 THEN A=0:B=S:GOTO 325 

55 IF K$="S" THEN J=-l :K=0 


320 1F B<>0 THEN B=0:A=S 

60 IF KS="L" THEN Q=0:H=-1 


32-5 FOR 11=3 TO 4 


145 



























330 PT=P0INTCX0+f1*A, YO+n*Bl 
335 IF PT0-1 THEN NEXT H 
340 IF PT=-] THEN A=-A:B=-B 
350 RETURN 

400 REH -= PRESENTATION == 

405 TEXT :CLS:PLAY 0,0,0,0 
410 PAPER?:INK1 
420 ES=CHRSC2?J 
425 PRINT CHR$C41 

430 PRINT" "E$"J"E$"S"E$"A LIGHT 

TRACK "E$"U":PRINTCHR$C41 
•PRINT • 

440 PRINTCHR$C961TILT niCRO" 

■345 PRINT SPRINT :PRINT"Uou lez-yous des ex 
olications C0/N1";:GET EX$ : 

IFEX$="0"THEN1000 

450 PRINT : PR INT :PRINT :PRINT"Ef fets sonor 
es C0/N1";:GET R$ 

460 IF R$="0"THEN R=1 

465 IF R=1 THEN PLAY 7,0,0,0 

470 XO=INTf.RNDC 1 1*1901+20 :YO=INTCRNDC 1 1* 

1501+10:A=-1 

480 PRINT: PR INT:PRINT"UERSIONS:": PR INT:P 
RINT :PRINT"<1> SEUL CONTRE 
L’ORDINATEUR" 

490 PRINT:PRINT:PRINT"<2> 2 JOUEURS" :GET 
G 

500 PIRES 

502 FOR I- ! TO 20:XX=JNTCRNDC11*1801+30 : Y 
Y=INT CRNDC11*1501+30 

503 CURSETXX,YY,0:CIRCLE 10,l:NEXT 
505 PRINTCHR$C171 

510 PAPER6: INK4 
520 CURSET 20,0,0 
525 DRAW 219,0,1 
530 DRAW 0,199,1 
535 DRAW -219,0,1 
540 DRAW 0,-199,1 

550 PRINT:PRINT" <<< LIGHT TRACK 

>>>" 

560 RETURN 

600 REfl == ORDINATEUR == 

610 XO=XO+A:YO=YO+B 

620 CURSET XO,YO,1 

630 FOR N=3 TO 3 

635 PO=POINTCXO+N*A,YO+N*BJ 

640 IF POO-3 THEN NEXT N 

650 IF P0=-1 THEN GOSUB 300 

660 GOTO 20 

800 REH == PERTE DU JEU == 

805 TEXT=CLS : IFR=1 THEN EXPLODE 

808 PRINT :PRINT:PRINT:PRINT 

810 IF C=0 THENPRINT"UOUS AUE2 GAGNES BR 


AUO.": GOTO 830 

820 PRINT"LE JOUEUR "iC;"A PERDUS" 

830 PRINT :PR1NT -'PRINT :PRINT"DUREE DU JEU 
3 .L 

840 PRINT :PRINT”UNE AUTRE PARTIE CO/Nl:" 
i :GET R$ 

850 IF R$="0" THEN RUN 
860 1F R$ = "N" THEN END • 

870 GOTO 840 
1000 CLS :PRINT 

1010 PRINTCHR$C1321 ;"Regle généra le :PR 
INT 

1020 PRINT"uous déplacez un point qui la 
isse" :PR1NT 

1030 PRINT"derriere lui une trace lumlne 
use. " :_PRINT 

1040 PRINT"Cette trace ainsi que les bor 
as ne" :PRINT 

1050 PRINT"sont plus {ranchlssab les et v 
ous" :PRINT 

1060 PRINT"devez tentez d’enfermer uotre 
" : PRINT 

1070 PRINT"aduersaire a 1 ’ i nter i eur . " 
1075 PRINT“-PRINT"pressez une touche" J :GE 
T 2*:CLS 

1080 PRINT :PRINTCHR*C1321 J"2 JOUEURS:":P 
RINT 

1090 PRINT"- joueur de droIte:":PRINT 
1100 PRINT" ’ a droite" :PRINT 
1110 PRINT" J a gauche" :PRINT 
1120 PRINT" L haut":PRINT 
1130 PRINT" . bas":PRINT' 

1140 PRINT"- joueur de gauche :PRINT 

1150 PRINT" D 'a dro!te" :PRINT 

1160 PRINT" S a gauche" :PRINT 

1170 PRINT" A haut":PRINT 

1180 PRINT" 2 bas":PRINT 

1190 PRINT"PTessez une touche";:GET 2$ 

1200 CLS .'PRINT 

1210 PRINT CHR$C1321 J"Contre l’ORlfc:":PR 
INT 

1220 PRINT"Uous utilisez les touches du 
Joueur" : PRINT 

1230 PRINT"gauche CDSA21 et vous partez 
du":PRINT 

1240 PRINT"centre de l ’écran:PRINT 
1250 PRINT"I’autre trait représente I’OR 
IC.":PRINT:PRINT"BONNE CHAN 
CES" 

1260 PRINT :PRINT"Pressez une touche"J:GE 
T 2$ 

1270 CLS :GOTO 450 






















ORIC-BRIQUES 


Défoulez-vous en cassant des briques. 

Une reprise des premiers jeux vidéo de café. Mais celui-ci, 
contrairement à ces ancêtres, 
possède sons et couleurs. 



BUT DU JEU 


Vous devez détruire peu à peu un mur de 
briques à l'aide d'une balle d'acier. Vous 
disposez d'une raquette pour renvoyer la 
balle vers le mur. Parfois elle s'infiltre à 
l'intérieur et détruit une grande partie du 
mur sans aucun effort de votre part. Bien 
sûr, la difficulté du jeu dépend de la taille 


de la raquette choisie. Et si vous voulez 
rire, choisissez une taille de raquette su¬ 
périeure à 5. Vous allez avoir une petite 
surprise quant à la représentation de la 
raquette. _ 


AU CLAVIER 


- Choisissez une taille pour la raquette en¬ 
tre 1 et 4, au-dessus pour faire une folle 


partie. 

- Vous disposez de trois balles. 

-Le déplacement de la raquette se fait par 
l'intermédiaire des touches d'édition si¬ 
tuées en bas du clavier à droite et à 
gauche. La flèche au-dessus de la touche 
indique la direction que prendra la raquette. 


0 REM COPYRIGHT TILT-MICRO 


120 IF A=0 THEN 170 

1 X=1:ï=26 


140 PLOT X,Y,ER$ 

2 POKE 618,10 


150 X=X+A 

3 HN$="?????":RE=50 


152 A=0 

5 CLS: p APER0•INK3: GOSUB 5000 


155 IF X<3 THEN X=3 

10 CLS : p APER0 ; INK3:R=5 


160 IF X> TG THEN X=TG 

12 ER*="" 


165 PLOT X,Y,R$ 

15 RESTORE 


170 REM /N/v/s BALLE /W' 

20 PÔKE 853,200 


180 PLOT Q,W," " 

30 FORI=4T026: p L0T2,I,CHR$C255]:PL0T38, I 


190 Q-Q+G:W=W+H 

,CHR$ C2551:NEXT 


200 S=SCRNCQ,U3 

40 PLOT 2)3,20: p LOT 3,3,l:PL0T 14,3,"ORI 


210 IF S=98 THEN GOSUB 1100 

C-BRIQUES" 


220 IF S=97THEN W=W-H :H=-H:SHOOT:G=INTCR 

50 FORI=46856 TO 46870 :READ C:POKEI,C:NE 


NDC13*23sIF G=0 THEN G=-I 

XT 


230 IF Q<3 OR Q>37 THENG=-G:Q=Q+G 

60 FOR 1=5 TO 12:F0RJ=4T036 


240 IF U<4 THEN W=4=H=-H 

70 PLOT J, I,."b" .'NEXTJ :NEXTI 


242 IF Q=3 AND W=25 THEN Q=4 

72 IF TR=1 THEN R$="aa" 


244 IF Q=37 AND U=25 THEN 0=36 

74 JF TR=2 THEN R*="aaa" 


245 IF l*l>25 THEN 2000 

76 IF TR=3 THEN R$="aaaa" 


250 PLOT Q,U,B$ 

78 JF TR=4 THEN R$="aaaaa" 


500 GOTO 100 

80 IF TROl AND TR<>2 AND TR03 AND TR O 


1000 Q=19 :W=13 ::A=0:&=0:H=] :Y=26 

4 THEN R$="aa aa aa" 


1005 X=20-CLENCR$3/21 

81 GOSUB 1000 


.1010 RETURN 

82 IFLENCRS]>20THENCLS:PRINTCHR$C173;"RA 


1100 L=L+10:L$=STR*CL) : p LOT 8,2,L$ 

OUETTE TROP GRANDE.": p 0KE85 


.(105 PING 

3,30:EDIT80 :END 


.1115 IF L=2640THENL=L+100 :PL0T15, 15, "BON 

83 F0RI=1T0LENCR$):ER*=ER4+" ":NEXTI 


ÜS 100":WAIT 80 : GOTO 10 

84 B*="o":TG=38-LENCRS3 


1120 H=-H:G=INTCRNDC11*2]:IF G=0 THEN G= 

85 PLOT 1,26,1 : PLOT X,Y,R$ 


- 1 

90 PLOT 1,0,4 : p LOT 2,0,"BALLE :":PL0T8,0, 


1130 RETURN 

STR-îCRD 


2000 R=R-1 : IF R=0 THEN 2050 

92 PLOT 1,1,7 :PLOT 2, 1,"HI-SCORE :":PLOT1 


2005 PLOT 8,0,STR$CRJ 

1,1,STR*CRED 


2010 PLOT X.Y.ER* 

93 PLOT 20,1,7:PLOT 21,1,HN$ 


2030 GOSUB 1000IPLOT X,Y,R$:UAJT 30 

94 PLOT l,2,i:fL0T 2,2,"SCORE : " 


2040 GOTO 100 

100 IF PEEKC520J=188 THEN A=2 


2050 CLS:IF L>RE THENPRINT: p RINT"RECORDS 

110 IF PEEKC520]=172 THEN A=-2 


2051 POKE 853,30 
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2055 IFL>RETHENINPUT "UOTRE NOfl S.U.P:"; 

HNS :HN$=MID$CHNS,1,8] :RE=L 

2057 PR INT : PR INT "SCORE : 1 2 * * * * * * * * 11 ;L 

2060 PRINT :PRINT"UNE AUTRE PARTIE COxNl" 

! :GET PS 

2070 IF P$="0" THEN L=0:GOTO 10 
2080 IF P$="N" THEN CALL 555:END 
2090 GOTO 2060 

3000 DATA 63,63,63,63,63,63,0,0 
3010 DATA 55,55,55,0,61,61,61,0 
5000 REM PRESENTATION 
5005 C=0 

5010 FORI=48080TO49000STEP40 


5020 POKE I,10:NEXT 
5025 PRINT CHRSC43 

5030 FOR I = 1 TOI 1 :PRINTSPCC123"ORIC-BRIQU 
ES'" 

5035 PRINT=NEXT:F0RI=1T025STEP2:C=C+1:IF 
C=8THENC=1 

5038 PLOT0,I,C:PLOT0,I+1,C:NEXT 

5039 PLOT 10,26, "PRESSEZ UNE TOUCHE..-." 

5040 GET 2$ :PRINTCHRSC43 

5050 CLS:PRINT:PRINT"TAILLE RAQUETTE : 1 2 
3 4:" ; :GET TR 
6000 RETURN 



LONGCHAMP 


Tentez votre chance au tiercé. 

Mais ne comptez pas trop sur le hasard. 

Vos finances sont assez limitées, choisissez le bon cheval, 

sinon gare à la ruine. 



de joueyrs et faites vos pronostics. 

- Après votre mise, les chevaux s'appro¬ 
chent de la grille de départ. C'est parti I 


_ BUT DU JEU _ 

Pariez sur le cheval gagnant, en lui don¬ 
nant une cote ou un handicap. Bien sûr, le 
résultat de la course dépend de la cote de 
chaque cheval. Après avoir répondu à 


quelques questions, vous verrez la course 
se dérouler à l'écran, __ 

_ AU CLAVIER _ 

- Choisissez le nombre de tours que doi¬ 
vent effectuer les chevaux puis le nombre 


1 RE!~1 COPYRIGHT TILT niCRO 

2 GOSUB 1000 

5 DIM NO$C203,SOC203,PRSC203>MIC203 
10 PRINT CHR4C121:PAPER4:1NK7 
15 U=7:E$=CHR$C273 
18 PRINT" “J 

20 PRINTCHRSC 4 3CHRSC27J"N"CHR$C27]*Q TI 
ERCE "CHRSC273"T”;CHR$C43 
2.5 PRINT :PRINT 

30 PRINT"TILT MICRO”:PRINT :PRINT 

33 IF FG=0 THEN INPUT"Nombre de tourCsJï 
";TR:FG=1 :GOTO10 

34 FOR B0=1 TO TR:RESTORE 

35 FOR PY=] TO 40:READC:NEXTPT:G0SUB285 
**0 PRINT: IF FL=0 THEN INPUT"Nombre de jo 
Jeur Cs 3 : " ; JO 

45 PRINT :PRINT"Preparez vos pronostics,p 

uls pressez - la barre d’esp 

ace. 

48 GET A$:CLS 

49 PRINT :PRINT"COURSE N’";BO:PRINT 

50 FOR 1=1 TO JO 

55 PRINT: IF FL=0 THEN SOC11 = 100 
60 PRINT"Joueur ";I:INPUT "Uotre pronost 
ic;PR$ Cil 

62 IF LENCPRSC 13 3 03 GOTO 60 


65 PRINT "vous avez " ;SOC13 J" Francs" 

67 PRINT :INPUT"Uotre mise:"JMICI3 

68 IF SOC I3 —nICI3 <0 THENPR1NT"TRICHEURS" 
GOTO 65 

69 SOC I3=S0C13-MIC13 

70 NEXT I :FL=1 
75 PRINTCHRSC173 
80 PRINTCHRSC123 

82 INK1 :E*=CHRSC273 

85 PRINT :PR1NT:PRINT:PRINT:PRINT:PRINT:P 
R1NT :PRINT:PRINT" • "J, 

90 PRINTCHRSC43ES"N"ES”UATTENTION AU DEP 
ARTS "ES"T" 

95 PRINT CHRSC43 

97 FOR S=1 TO 4:PING:UAIT 30:NEXTS 
100 WAIT 300 
110 CLS 

115 FOR 1=120 TO 720STEP 120 

120 READ PO 

135 POKE 48039+1+3,PO 

140 POKE 48040+1,32 

145 NEXT I 

150 PAPER2 :1NK0 

155 FORI=0 TO 36 : PRINT"V;:NEXTI 
160 F0RI=1T024:PRINT:NEXT3 
165 FORI=0 TO 36:PRINT"\";:NEXTI 
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170 F0R1=3 TO 18 STEP 3 
.180 PLOT 2,1, "&£" 

188 NEXT I 

195 REFI **** 0EPLACEI1ENT **** 

196 F0RI=1T06:XCID=2:NEXT 1 
200 F0RY=3 TO 18 STEP 3 
205 K=Y/3 

210 CA=17-CACK11 
212 IF F=0 THEN 220 

214 IF K=GA[13 OR K=GAC21 OR K=GAC31 THE 
N NEXT Y :GOTO 200 

220 AU=INTCRNDC1 l*CAl+2 :AU=AU-3 : IFAU<=2T 

HEN AU=INTCRNDC 13*43+2 

225 PLOT XCK1,Y," ”:AXCK1=XCK1 

230 XCK1=XCK1+AU: IF XCK1>36 THEN XCK1=38 

: GOTO240 

235 IFXCK1>36THENF=F+1 :&ACF1=K :GOSUB 900 

•IF F=3 GOTO 500 

240 FOR R=AXCK1+1 TO XCK3 

245 PLOT R,Y,"8.£" 

248 LIAIT 8 

250 PLOTR,Y," " 

251 IFRfXCKl THEN 253 

252 R=R+1 

253 IFR>36 THEN XCK1=37:G0T0 235 

254 PLOT R,Y, 

256 WAIT 8 

258 PLOT R,Y," " 

260 NEXT R \ 

262 UU=INTCRNDC11*21 : lVUW=0THENNC$="@*"E 

LSENCa="8.£; 1 

265 PLOT R-1,Y,NC$ 

275 NEXT Y 
280 GOTO 200 

285 FORI = l TO 20 :READC$:NO$CI1=C$:NEXTI 

288 FOR 1=1 TO 6 

230 HACI3=INTCRNDC13*203+1 

292 FOR J = 1 TO I : IF J = I THENNEXTI 

294 IF HAC13=HACJ 3THEN290 

295 IF 107 THEN NEXT J 

296 IF 107 THEN NEXT T 
300 FOR 1=1 TO 6 

305 C*=NO$CHACI33:LE=LENCC*3 

307 CO=INTCRNDC13*113+5 

308 AC 13=C0 

310 PRINTI ;C$; 

315 PR1NT TABC30-LE3 "Cote:”jCO 

316 PLOT 30,U, 'VI":U=U+2: PR INT 
320 NEXT I :U=0 

325 RETURN 

328 REFI******** DATA ********* 

330 DATA 0,0,0,31,63,23,20,10 

332 DATA 8,22,24,56,60,52,20,40 

334 DATA 0,0,0,31,63,23,20,40 

336 DATA 8,22,24,56,56,52,18,9 

338 DATA 0,0,63,18,63,18,18,18 

340 DATA"L’AS DES AS","LANTERNE ROUGE"," 

PAPILLON" 

350 DATA"OURAGAN","POY-POY","MARCHE ARRI 
ERE" 

360 DATA"BANJO","L’INDESIRABLE","GRAND G 
UIGNOL" 

370 DATA"RAJI","JOLI COEUR","FIGARO” 

380 DATA" JOLLY JUflPER", "L’ARNAQUE" , "FIACA 


RON" 

390 DATA'T’TIT GIBUS", "LJH1 TE LABEL", "ALL 
El FRANCE" 

395 DATA'YIEL] MELO", "CHIC TYPE" 

400 DATA 0,1,3,4,5,7 

410 RED *** FIN DES DATA *** 

500 CLS:PAPER4:INK3 
510 PRINT :PR!NT:PRINT 
520 E*-" "+CHRSC271 

530 PRINTCHR$C43ES"J“E$"QRESULTATS:”E$"T 

540 PRINT: PR INT : PR I NT : PR INT : PR INT 
550 FORI=1T03 

560 PRINTE$"J"E$"G"GACII "; 

570 NEXTI :PRINTCHRSC4) 

580 PRINT:PRINT:PRINT 

585 REN *** CALCUL DES GAINS *** 

590 FOR J=1 TO JO 
■595 F0RC=1 T03 
600 F0RK=1T03 

610 PN*=niD*CPR*CJD,C, 1 J:PN=UALCPN$J 
620 IFPNOGACKJTHENNEXTK :PRINT" Joueur 
J;"Rien 9&9ne.deso l e2":NEXT 
J :&OTO705 
630 NEXTC 
640 F0RU=1 T02 

650 PN$=niD*CPR*CJ3,U,11:PN=UALCPN$1 
660 IF PN=GACU1 THEN NEXT U :TT=NICJ1:GOT 
0680 

670 TT=NICJ)/2 

680 AR=TT*CACGAC111*3+ACGAC211*2+ACGAC31 
11 

685 AR=AR/10 

690 PRlNT"Joueur ";Ji" uous avez 9&9ne " 
;AR ; "F": SOC J1=S0 C J 1+AR 
700 PRINT :NEXTJ 

705 GET2* : CLS : PR INTCIHR* C1 71 :U= 1 :1NK7:F=0 
708 F=0:FOR8B=1TO3:GACBB1=0:NEXTBB . 

710 NEXT BO 
715 INK3 

720 PRINTCHR$C.41E$"J"E$"PRESULTATS FINAU 
X :"CHR$C271"T" 

730 PRINTCHRSC41 :PRINT 
740 FORI = 1 TO JO 


750 PRINT" JoueuT n ’ " J I J ” : ” 
760 PRINT :NEXT I 
770 END 

900 XCK1=3 :AXCK1=3 
910 CC=120+ C CY/3-11*1201 
920 POKE 48039+CC+3,2 
930 POKE 48040+CC,32 
940 PAPER2 
950 RETURN 

999 REFI *** CARACTERES *** 

1000 FOR 1=46592 TO 46599 
1010 READ C 

1020 POKE I,C:NEXTI 

1030 FOR 1=46376 TO 46383 

1040 READ C 

1050 POKE I,C : NEXT I 

1060 F0RI=46384 TO 46391 

1070 READ C 

1080 POKE I,C :NEXTI 

1090 FOR 1=46840 TO 46847 


;so c 11 
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1100 READ C 


1130 READ C 

1110 POKE IiC:NEXT I 


1140 POKE J,C:NEXTI 

1120 F0RI=46816 T0 46823 


1150 RETURN c . 


# ALTITUDE 0 



Vous avez réchappé à de terribles dangers, 
mais les envahisseurs que vous allez combattre aujourd'hui 
sont particulièrement redoutables. 

Soyez le plus rapide sinon vous perdrez une vie. 


BUT DU JEU 


Vous devez à l'aide du canon Laser qui 
équipe votre vaisseau, abattre un à un les 
envahisseurs. Faites vite car la zone d'é¬ 
volution de vos ennemis s'abaisse peu à 


peu et ils se rapprochent inévitablement 
de votre vaisseau. 


AU CLAVIER 


gauche et de droite. 

- Pour tirer, pressez la barre espace. 


- Déplacez votre vaisseau situé en bas de 
l’écran à l’aide des touches d’édition de 


0 RED COPYRIGHT TILT MICRO 


117 IF X<1 THEN X=1 

5 FORI=46856 T0 46935 


119 IF X>35 THEN X=35 

6 READ C:P0KE I,C:NEXT 


120 PLOT X,26,US :PL0T X,25,W$ 

10 CLS:PAPER0:INK3:NU=3 


125 PLOT XB,YB," ." 

11 PLOT 0,0,20:PLOT1,0,1 


130 XB=XB+Q:YB=YB+U 

12 PLOT 2,0,"SCORE:”:PL0T ) 5,0,"HJ-SCORE 


131 IF XB<1 THEN XB=XB+l:Q=-Q 

:P L0T 31,3,"TEMPS:" 


132 IF XB>34 THEN XB=XB-1:Q=-Q 

13 PLOT 16,1,STR*CHS1 


133 IF YB=P+1 THENGOSUB 1500 

14 PLOT 0,3,20:PL0T1,3,1 


135 IF SCRNCXB, YB1032 THEN 2500 

15 PLOT 2,3,"UIES:”:PL0T15,3,"PLAFOND:" 


136 IFSCRNCXB+1, YB1032 THEN 2500 

16 PLOT 3,4,STRSCNU] 


137 IFSCRNCXB+2, YB10 32 THEN 2500 

17 PLOT 30,0,"M.JOUEUR:":PLOT30,1,N$ 


138 IF YB=26THENGOSUB 1500 

20 POKE 618,10 


140 PLOT XB,YB,"dfJ" 

25 X=18 :U$="abc" :U= 1 :Q=1 :uiî="gh i " 


141 PLAY'l,0,0,0 

26 XB=INTCRNDC11X341+2 


142 SOUND 1,INTCRNDC11*1001+10,5 

30 P=5 :C=0 


145 C=C+1:PL0T32,4,STR*CC1 

31 F0RI=6T024:C=C+1:IFC=8 THEN C=1 


150 IF C=100 THEN 2500 

32 PLOT 0,1,C:NEXT 


500 GOTO 60 

33 POKE 853,250 


1000 REM /n TIR /N 

35 P=Pi-l :YB=P+2:XB=INTCRNDC1 1*341 + 2 


1002 IT=1' 

36 PLOT 16,4," " :PL0T 16,4,STRSC21-P1 


1005 PLAY 5,0,0,0 

37 IF P=21 THEN PJNG :SC=SC+100:CLS:G0T0 


1010 FOR 1=24 TO P+l STEP -1 

1 1 


1015 SOUND 1,4*1,9:S0UND 3,20*1,8 

40 F0RJ = 1 TO 37 :PL0TI,P,:NEXT 


1020 S=SCRNCX+1,I1 

-*5 PLOT0,P,6 


.1030 IF S=1-02THENPLAY 0,0,0,0:GOTO 2000 

50 PLOT X,26,US:PLOT X,25,W$ 


1040 PLOT X+I,I,"!" 

55 PLOT 0,26,7:PLOT0,25,1 


1050 NEXT: p LAY0,0,0,0 :FOR1=24 TO P+l STE 

60 IF PEEKC520J=157 THEN GET 2$ 


P -J 

65 IF PEEKC5201=56THEN 125 


1060 PLOT X+1,I," ":NEXT:PLAY 0,0,0,0 

20 IFPEEKC5201=143 THEN A=2 


1070 GOTO 110 

80 IFPEEKC5201=13] THEN A=-2 


1500 REM REBOND H,B 

90 IF PEEKC5201=I74ANOIT=0THEN GOTOI000 


1510 U=-W 

100 IT=0 


1520 H=INTCRNDC11*21 : IF H=0THENQ=-1ELSEQ 

110 PLOT X,26," ":PL0TX,25," 


-1 

115 X=X+A:A=0 • 


1530 RETURN 


150 




















2000 REM TOUCHE 

2002 PLAT 1,0,0,0 

2003 REPEAT 

2005 FOR1 --60TO90 =SOUNDl , I,8=NEXTI =2=2+1 = 

ÜNTIL 2=4 =2=0 

2010 PLAT 0,0,0,0 

2020 PLOT XB,YB,"eee"= WAI T 5 

2030 FORI=24 TO YB+1 STEP'-l 

2040 PLOTX+1,1," " =NEXT =PLOT XB, YB, '' 

2050 SC=SC+C100-C]=U=1 
2052 Q=INTCRNDC11X21 = 1FQ=0THENO=-1 
2055 FORI = 1T03?: PLOT I,P," "=NEXT 
2060 C=0=PLOT 32,4, " 

2070 PLOT 3,1,STRSCSC) 

2100 GOTO 35 
2500 REI-1 PERTE 

2510 PLAY 7,0,0,0=nUSlC 1,0, 1,9 =WAI T20 =,P 
LAY 0,0,0,0 
2515 UAIT 15 

2520 C=0=NU=NU-1 :1F NU=0 THEN 2600 
2522 PLOT XB,YB," 

2525 PLOT 3,4,STR$CNUI 
2530 PLOT 32,4," 

’2535 XB=18 = TB=P + 2 


2540 GOTO 60 

2600 CLS 

2605 PR1NT =PR1NT 

2610 IF SDHS THENPRINT "RECORD BATTUS" =P 
RINT 

2620 IFSC>HSTHENHS=SC = INPUT"UOTRE NOM:"; 
N$jPRINT =PRINT"MERCI . " = N$=M 
JD$ CN$,1,83 

2630 PRJNT = !NPUT"UNE AUTRE PARTIE" ;R$ 
2640 1F R$ = "O" THENCLS =SC=0 =NU=3 =G0T011 
2650 PRINT =PRINT"AU REUOIRS" 

2652 POKE 853,32 =PRINTCHR$(173 
2655 END 

5000 DATA 20,21,23,23,22,20,28,8 
5010 DATA 54,55,55,21,20,28,20,20 
5020 DATA 20,20,52,52,52,20,28,8 
5030 DATA24,24,31,1,1,63,48,32 
5040 DATA 37,16,2,42,1,21,0,43 
5050 DATA 33,63,45,45,63,63,18,12 
5060 DATA 0,0,0,0,1,9,9,28 
5070 DATA 8,8,28,62,63,43,9,28 
5080 DATA 0,0,0,0,0,8,8,28 
5090 DATA 6,6,62,32,32,63,3,1 




TILTMAN 


Vous pensiez avoir détruit pour toujours 
ces nombreux enzimes gloutons 

et fantômes qui hantaient le château de vos ancêtres, lourde erreur. 
Certains d'entre eux ont survécus. 

C'est votre dernière chance, saisissez-là. 



BUT DU JEU 


Vous incarnez aujourd'hui un enzime 
glouton affamé. Il a une telle faim qu 'il doit 
dévorer toutes les pastilles se trouvant sur 
ion chemin. Malheureusement, un fan- 
ime vous poursuit. Échappez-lui le plus 
longtemps possible. Mais des bonus aux 


quatre coins du labyrinthe vous permet¬ 
tent de le dévorer. Des fruits situés près de 
son repaire vous donneront des points 
supplémentaires. 


l'aide des touches : 


AU CLAVIER 


A_haut 

Z =: bas 
K = gauche 
L_droite 


- Dirigez votre petit enzime glouton à 


0 REH COPYRIGHT TILT-MICRO 
.1 AP$="b " :FR$="k" :DR$=" I" :PG$="dd“ 

-3 TA=50 = TD=40 = Tl =30 =NP=3 
5 POKE 618,10 =POKE 853,100 
10 TEXT =CLS =PAPER4 = INK1 
20 FOR A=46856 TO 46959 

25 READ C =PQKE A,C=NEXT A 

26 A=0 =B=0 

“3é :FOR 1=2 TO 12 

35 PLOT 1-1,12," "=PLOT 1,12,"dbTILTMAN 

bh"=WAIT 15 =NEXTI 
40 WA1T 100 


100 CLS = INK4=AP$="b"=X=14 =Y=20 =P$ = "d 
= 14 =YF=9:F$="h"= M=1=AF=-1 
.102 PRINT 

105 IF FR$="J" THEN FR$="k "ELSEFR$=" 
108 PLOT 28,26,5=PLOT 29,26,DR* 

110 FOR 1=1 TO 27 

120 PLOT 1,0,"a"=PLOT I,26,"a"=NEXTI 
130 PRINT"abbbbbbbbbbbbabbbbbbbbbbbb 
1 40 PRINT"abaaaabaaaaababaaaaabaaaab 
150 PRINT"abaaaabaaaaababaaaaabaaaab 
160 PRlNT"abbbbbbbbbbbbbbbbbbbbbbbbb 
170 PRINT"abaaaababaaaaaaaaababaaaab 


= XF 


J" 
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.1 80 PRINT"abbbbbb"abaaaaaaaaababbbbbba" 
190 PRINT"aaaaaababbbbbabbbbbabaaaaaa" 
200 PRINT" abaaaaababaaaaaba 1 ’ 

210 PRINT" ababbbbbbbbbbbaba" 

220 PRINT" ababaaa===aaababa" 

230 PRINT"aaaaaababa ababaaaaaa" 

240 PRINT"bbbbbbbbba abbbbbbbbb" 

250 PR1/JT"aaaaaababaaaaaaaaababaaaaaa" 
260 PRÎNT" ababbbbbbbbbbbaba" 

270 PRINT" ababaaaaaaaaababa" 

280 PRINT"aaaaaahabaaaaaaaaababaaaaaa" 
290 PRlNT"abbbbbbbbbbbbabbbbbbbbbbbba" 
300 PRINT"abaaaabaaaaàbabaaaaabaaaaba" 
310 PRINT“abaaaabaaaaababaaaaabaaaaba" 
320 r'RINT"abbbbabbbbbbbbbbbbbbbabbbba" 
330 PR INT"aaaab ababaaaaaaaaabab abaaaa" 
340 PRÏNT"abbbbbbabbbbbabbbbbabbbbbba" 
350 PR INT"abaaaaaaaaaabab aaaaaaaaaaba” 
360 PR INT"abaaaaaaaaaababaaaaaaaaaaba" 
370 PRlNT"abbbbbbbbbbbbbbbbbbbbbbbbba" 
372 PLOT 28,24,l:PLOT 29,24,GD* 

375 PL0T2,2,"c":PL0T26,2,"c":PL0T2,20,"c 
" :PLOT26,20,"c" 

378 PLOT X,Y,PS 

380 INK3 

381 PL0T28,15,6:PL0T29,15,PG* 

382 PL0T11, 12, "TILTmN" 

385 PLOT 28,0,1:PLOT29,0,"SCORE 
390 REH == PCT ION == 

400 K*=KEY* 

401 IFTE>0THENTE=TE-lELSEf1=l :F*="h" 

403 LS-STRSCU:PL0T28,1,L* 

410 IF K*="L"THENA=1:B=0:P*="d" 

420 IF K*="K"THENA=-1:B=0:P*="e” 

430 IF K*="A"THENA=0:B=-1 :P$="f" 

440 IF K*="2"THENP=0:B=1 :P*="9" 

450 PLOT X,Y," " 

455 X=Xip:Y=Y+B 
460 IF X--e AND Y=12 THEN X=27 
465 IF X=28 AND Y=12 THENX=1 
470 SC=SCRNCX,Y] 

475 IF SC=]04 THEN 2000 

480 IF SC=105THEN3000 

485 IF SC=97 OR SC=6] THEN X=X-A:Y=Y-B 

490 IF SC=98THENL=L+10:CP=CP+1:PING:IF C 

P> 275THEN6000 

495 IF SC=99 THEN GOSUB 4000 
500 IF SC=]06ORSC=107THENL=L+300:CC=0:IF 
ES*="0"THENGOSUB 6100 
580 PLOT X,Y,PS 
600 REf1== FANTOME == 

610 IF XF<XTHENPF=1 :BF=0'-GOTO650 

620 IF XF>XTHENAF=-1 :BF=0 :GOTO650 

630 IF YF<Y THENBF=1 :PF=0=GOTO650 

640 IF YF>YTHENBF=-1=AF=0 

650 PLOTXF,YF,PP*:XF=XF+n*PF:YF=YF-M1*BF 

655 IFYF=12PNDXF<1THENXF=27 

658 IFYF=12ANDXF>27THENXF=1 

660 SF=SCRNCXF,YFD 

670 IF SF>99 PND SF<104 THEN 2000 

680 IFSF=970RSF=61THENN=N+1:GOTO900 

690 AP*=CHR* CSF3 

700 PLOT XF,YF,F* 

710 CCCC-t-1 -1FCC=TPTHENPLOT 14, 14, FR* :DC= 


TD 

720 DC=DC-1 : IF DC=0THENPLOT14,14," " :CC= 
0 

800 GOTO 400 
900 REM=BLQQUE= 

905 XF^XF-MXPF:YF=YF-n*BF 

906 PLOT XF,YF,F* 

908 IF N=2 THEN N=0:GOTO4'00 
910 IF PF=1THEN620 
920 IF PF=-1THEN630 
930 PLOT XF,YF,PP* 

940 GOTO400 
2000 REM=-PERTE== 

2005 PLPY 7,0,3510 :WPIT50 :EXPLODE 
2010 NP=NP-1 : IF NP=0THEN 2050 

2012 IFNP=2THENPG*="d"ELSEPG*=" " 

2013 PLOT 28,15,6:PL0T29,15," ":PL0T29 

,15,PG* 

2015 PLOT X,Y," " 

2020 X=14 :Y=20:XF=14 :YF=9 
2040 GOTO 390 

2050 CLS:PRINT:PRINT:PRINT"SCORE FINAL : " 
;l 

2060 PRINT:PRINT:END 
3000 REI1—GOBE FPNTOME== 

3005 GOSUB6100 

3010 L=L+300=CP=CP+1 

3012 F*="h":IFCP>278THEN6000 

3015 XF=14:YF=9=TE=0 

3020 GOTO 400 

4000 REM== ENERGI2ER == 

4001 2PP 

4002 CP=CP+1:L=L+100:F*="I" 

4005 IF CP>278THEN6000 
4010 M=-l-TE=T1 :RETURN 

5000 OPTA 63,63,63,63,63,63,63,63 
5010 DATA 0,0,0,12,12,0,0,0 
5020 DATA 0,0,30,30,30,30,0,0 
5030 DATA 12,30,59,63,56,63,30,12 
5040 DATA 12,30,55,63,7,63,30,12 
5050 DATA 0,0,18,51,63,63,30,12 
5060 DATA 0,0,12,30,63,63,51,18 
5070 DATA 12,30,63,45,45,63,63,45 
5080 DATA 12,30,51,33,33,33,63,45 
5090 DATA 6,0,12,30,63,30,12,0 
5100 DATA 0,28,20,28,8,12,8,12 
5110 DATA 16,24,28,30,16,16,16,16 
5120 DATA 30,30,30,30,16,16,16,16 
6000 REM==FIN DE TABLEAU== 

6010 PLOT X,Y," " 

6012.A=0;B=0 

6015 PLAY 7,0,0,0 

6020 FORI=40 TO 10 STEP -2 

6030 SOUND 1,1,9 :UAIT 05:NEXTI : PLAY0,0,0 

,0:PLAY1,0,1,10 

6032 DR*=OR*+"l" 

6033 1F LENCDR*]=5 THEN DR*="":GD*=GD*+" 

6034 PL0T28,24,1 :PL0T29,24,GD* 

6035 TA=TA+3:TD=TD-2:Tl=Tl-2:CP=0 

6036 IF TD<0THENTD=0 

6038 1F T1<0THENT1=0 

6039 WAIT50:PING 

6040 GOTO 100 
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FORMULE 1 


Pilote de Formule 1, vous allez vivre 
une épreuve comptant pour le Championnat 
du monde de la spécialité. 



BUT DU JEU 


autres concurrents. Vous n’avez droit qu'à 
neuf fautes de pilotage. Chacune d’elles 
est précisée par un bip sonore. Comptez- 
les bien car votre victoire en dépend. 


Au volant de votre Formule 1, vous allez 
participer à une course un peu spéciale. 

Aucune règle précise n'a été fixée par les 
juges de piste. Il faut tenir le plus long¬ 
temps possible, en évitant les bolides des - Pour déplacer votre bolide de couleur 


AU CLAVIER 


bleu, utilisez les touches d’édition de 
gauche et de droite. Elles sont symboli¬ 
sées par deux flèches horizontales, si¬ 
tuées à droite du clavier. 

- Après neuf collisions, votre score s'af¬ 
fiche à l’écran. 


10 NU=3:NH=3:SC=0 
20 X=116:AY=15 
30 XC13=?6:YC1 3=80:CC13=2 
40 X(23=76:YC23=30:CC23=9 
50 XC33=76:YC33=165:CC33=15 
50 REH === DESSIN UOITURE === 

70 PATTERN S.#0, "3D273F0303060C0C" 

80 PATIERN S«J,"0D3F233F3D000000" 

90 PATTERN Stt2,"BCE4FCC0C0603030" 

100 PATTERN Stt3,"80FCC4FCBC000000" 

110 REN === DECOR === 

120 SCREEN 2j 2 =CLS 

130 COLOR 12,12,C0.03-C255,1913,12 

140 COLOR 14,14,C70,03-C189,1913,12 

150 COLOR 15,15,C61,03-C69,1913,12 

160 COLOR 15,15,C198,03-C205,1913,12 

170 FOR 1=0 TO 180 STEP 40 

.180 COLOR 8,8,C60,I3-C69,1+203,1 

190 COLOR 8,8,(196,13-C206,I+203» 1 

200 NEXT 

210 NAG 3 

220 SPRITE 0,fX,1503,0,4 
230 REH === DEBUT === 

240 K$=INKEY$ 

250 SOUND 5,2,10 
260 IF KS="“ THEN 330 
270 A=ASCCK$3 
280 IF A=28 THEN XrX+15 
290 IF X>164 THEN X=164 
300 IF A=29 THEN X=X-15 
310 IF X<68 THEN X=68 
320- SPRITE 0,CX,1503,0,4 
330 FOR 1=1 TO 3 

340 IF YCI 3> 180 THEN XC I 3=68+10*C JNTCR 


ND C 1 3 *8+ 1 3 3 : Y CI 3 =5 : SC=SC+1 00 

350 Y C13=Y( 13 -i AY 

360 SPRITE I,rX(I3,YCI33,0,CfjI3 

370 JF C CXC I 3 +283> CX+4 3 AND XCI3<CX+24 

3 3 AND C f Y C 1 3+263>150 AND YCJ 3<1763 TH 

EN BEEP2 :NH=NH-1 ; IF NH=0 THEN NU=NU-i: 

NH=3 


380 JF NU=0 THEN 410 



390 NEXT 
400 GOTO 240 
410 REH === PERTE- === 

415 SCREEN 1,1 :CLS 

420 FOR 1=0 TO 2 

425 COLOR 1+5., 1+5 

430 SOUND 4,1,10 

440 FOR J = ] TOI 90:NEXT 

450 NEXT I=8EEP 2 

460 CLS :COLOR 12,1 

470 PRINT :PRINT •'SCOR*E FINAL:",'SC 

480 PRINT : INPUT "Une autre partie CO/ 
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S.O.S LUNE 

Depuis dix jours les communications 
entre la Terre et la Lune ont été interrompues. 
Vous partez à bord d'un LEM, 
vers la base Alpha pour connaître 
les raisons de ce silence. 



manette de jeu Elle doit être connectée 
sur le port 1. Les quatre directions per¬ 
mettront de déplacer le LEM, en haut, en 
bas, à gauche et à droite. 


Votre voyage de la Terre à la Lune s'est 
passé sans encombre. Maintenant, il faut 
alunir, vos instruments de vol sont hors 
d'usage et l'attraction lunaire se fait de 


BUT DU JEU 


plus en plus forte. Vous devez vous poser 
avec le peu de carburant restant, sur l une 
des deux aires aménagées. _ 

_ AU CLAVIER _ 

- Ce logiciel nécessite l'utilisation d'une 


10 REn Copyright TILT nJCRO 


67,50,16? 

20 REfl SEGA-YE.N3 SC 3000 


240 DATA 66,167,67,168,68,169,69,169,7 

30 REH PRESENTATION 


0,169,71,170,72,171,73,171,74,172,75,1 

40 CLSsSCREEN 1,1sC0L0R4,I1 


72 

50 PRINI - D RI NT -PRINT :PRINT sprint : 


250 DATA 76,173,77,174,78,175,79,176,8 

PRINT : PR J N T sPRInT :PRJNT sPRINT :PRI 


0, 176,81,177,82,178,83,179,84,180,85,1 

NI t°RJNT 


91 

60 PR INI " 


260 DA1A 86,180,87,179,88,178,89,177,9 

70 PRINT CHR*t2533 ; SPRINT " ' ;sa=a+2*I 


0, 176,91,1.75,92, 174,93, 173,94, 172,95, 1 

F A<25 7.HEN 70 


71 

80 PRINT :PRINT 


270 DATA 96,170,97,169,98,169,99,168,1 

30 PRINT •' S.O.S LUNE" 


00,167,101,166,102,165,103,164,104,163 

100 PRINT 



110 PRINT " " ; 


280 DATA 105, 163, 106,.164, 107, 163, 108, 1 

120 PRINT C; J RSC253 3 ; PRINT " 


62,109,161,110,160,111,160,112,159 

IF B <25 THEN 120 


290 DATA 113,158,114,158,115,157,116,1 

130 FOR 1=1 T3 399:NEXT I 


56,117,156,118,155,119,355,120,154 

140 PRINT SPRINT sPRInT :PR1NT SPRINT 


300 DATA 121,154,122,155,123,154,124,1 

SPRINT SPRINT SPRINT sPRINT sPRINTsPRI 


54,125,153,126,152,127,,53,128,153 

NT sPRINT sPRINT ' sPRINT sPRInT sPRInT 


310 DATA 129,152,130,153,131,150,132,1 

SPRINT SPRINT SPRINT s^RINT sPRINTsPRI 


50,133,149,134,148,135,147,136,147,137 

NI SPRINT 


,146,138,145,139,146,140,147,141,147 

150 REn DECOR DU JEU 


320 DATA 342,148,143,149,144,149,145,1 

160 SCREEN 2,2 sCLS sCOLORl,1,C0,03-C255 


48,146,147,147,148,148,149,14 9,150,.150 

,1913,14 


, 151 

170 LINE C151,I513-CI91,1533,7 


330 DATA 192,153,193,149,193,149,194,1 

180 LINEC50,1673-C65,1673,7 


48,195,147,196,14?,197,146,198,145,199 

.190 DATA 0, 151, 1, 151,2, 151,3, 151,4,351 


,146,200,145,201,144,202,144,203,143 

.5,152,6,151,7,152,8,153,9,352, 10, 151 


340 DATA 204,142,205,141,206,141,207,1 

200 DATA 11,151,12,152,13,153,14,154,1 


40,208,139,209,138,210,137,211,137 

5,I53,16,153,17,152,18,152,19,151 • 


350 DATA 212,336,213,135,214,134,215,1 

210 DATA 20,150,21,151,22,151,23,150,2 


34,216,135,217,i36,218,136,219,135 

4,149,25,148,26,148,27,149,28,148,29,1 


360 DATA 220,136,221,137,222,138,223,1 

49 


38,224,139,225,140,226,141,227,142 

220 DATA 30,150,31,151,32,152,33,153,3 


370 DATA 228,141,229,142,230,143,231,1 

4, 154,35, 155,36, 156,37, 157,38, 158,39, 1' 


44,232,145,233,1^6,23a,147,235,148 

59 


380 DATA 236,149,237,150,238,153,239,1 

230 DATA 40,160,41,161,42,160,43,161,A 


52,240,153,241,154,242,154,243,153 

a,162,45,163,46,164,47,165,48,166,49,1 


390 DATA 244,352,245,153,246,153,247,1 ■ 

154 













54,248;155)249, 156,253, ] 56,25 J, 15? 

■a00 DATA 252, 156,253, 156, 254, !55, 255,' 1 
54 

410 FOR 1 = 1 TO201 :READ A,B=PSET f A,B :, 
8:NEXT 

420 PAINT Cl é0, 1601,4 

■130 LJ NEC 50, 1671-C65, ,67 J, 7 

440 NAG1 

450 REH CREATION LE.1 

460 PATTERNSS0, "03070F1 ClC0C0703" 

■370 PATTERNSH1, "020F 1 F3F1 F333030" 
û 80 PATTERNSH2,"C0E0F8383830E0C0" 

490 PAT7ERNS43, E0F0F8FCF80C0C0C" 

500 RE.1 CREATION FLAI1NE 

510 PATTERNSH'r , '0707030100000000" 

520 PATTERNSU6, "E0E0C08000000000" 

530 A=30:3=120:C=500 
540 IF A>167 TPEN 750 
550 IF B>255 THEN S=120 
560 SPRITE0,CB,AI,0, 14 
5-70 A=A+3 
580 D=STJCK.C1 1 

590 IF D=I THEN A=A-4:C=C-15 :E=1 
600 IF D=3 THEN 8=Bi4:C=C-5 
610 1FD=7 THEN 3=B-4:C=C-5 


620 IF C<i THEN 750 

630 IF A> J 67 AND B<65 AND 8>50 THEN680 

640 IF A>151 AND B<191 AND B>151 THEN6 
80 

650 IF E = 1 THEN SPRI TE 1 » CB, A-t 151,4, 10 
:S0UND5,2,15:S0UND5,2,15:S0ÜNÜ5,2,15:S 
QLIND0 

660 SPRI7E1, CB, Ai' 151,8, 1 
670 E=0:&OTO 540 

680 SCREEN 1,1 :CLS :S0UNJ5,2,15:FOR 1 = 1 
TO 99 :NEXT 1 

690 PRINT :°RINT :PRINT :PRINT iPRINT 
:PRINT :PRINT :PRINT ;PRINT :PRINT 
700 PRINT " NI SS J ON ACCOMPL IE " 

210 1NPUT UNE AUTRE CI ISS ION ";US:SOUN 
D0 

720 IF U$="OUI" OR US="0" THEN RESTORE 
: GOTO 150 

730 IF W$= "NON" OR' Ul$= " N ' THEN END 
740 GOTO 710 

750 SCREEN I, 1 : PRiNT :PRINT =PRINT :PR 
INT :PRINT :PR1NT :PRINT :°RJNT 
760 PRINT " UOTRE LEM ESI PERDU" :GOTO 
710 



TORPILLEUR 


Une guerre secrète vient d'éclater 
dans une contrée lointaine. 

Votre président vous envoie sauver l'état des Tiltiens. 
Pour cette mission, vous allez commander 
un sous-marin nucléaire ultra-moderne. 



BUT DU JEU 


Le quartier général ennemi se trouve à 
bord d'un torpilleur. Votre mission est de 
couler ce navire. Mais à chacun de vos 
passages au-dessus du sous-marin, ce 
dernier vous lance une grenade. N'hésitez 


pas à riposter à l'aide de vos torpilles. La 
côte, toute proche, protège souvent le bâ¬ 
timent ennemi. 


AU CLAVIER 


à l'aide des touches d'édition à droite du 
clavier. Pour lancer une torpille, pressez la 
barre espace. 


- Déplacez votre sous-marin dans les qua¬ 
tre directions (gauche, droite, haut et bas) 


10 REM Copyright TILT MICRO 


80 PATTERN Stt 0,"0000000000FF613F" 

20 CLS 


90 PATTERN Stt 1 , "001EI 71 Fl FFFFFFF" 

30 PRINT iPRINT -PRINT =PRINT =PRINT : 


100 PATTERN Stt 2, "00000000C.0FFFFFE" 

PRINT :PRINT SPRINT iPRTNT :PRINT :COL 


110 PATTERN Stt 7, "0000000003FFFF7F" 

0R1,15 


120 PATTERN Stt 8, "0078E8F8F8FFFFFF" 

'40 PRINT " TORPILLEUR" 


130 PATTERN Stt 9, "0000000000FF86FC" 

50 FOR 1=1 TO 99:NEXT I 


.140 PATTERN SS10, "0000000000BE7FBE" 

60 PRINT SPRINT :PRINT =PRINT :PRINT = 


150 PATTERN Stt] 1, "0000081C3FFFFF7F" 

PRINT -PRINT : PR INT :PRINT :PRINT :PR1 


160 PATTERN Stt 1 2, "023438FFF 1 FFFFFF" 

NT :PR1NT :PR1NT :PRINT 


170 PATTERN SH J 3,"000020409FFEFCF8" 

70 REÎ1 SPRI TES BATEAU, SOUS-MARIN ET 


180 PATTERN Stt 1 4," 1038383838103828" 

TORPILLE 


190 GR=11:BA=3 


155 





























200 SCREEN 2,2:CLS 


560 IF U>XB-2 AND U<XB+22 THEN 5^0 

210 T=150:X=200:D=0.-qOSUB 500 


570 SPRITE 14,[0,01,14,8 :T=0:RETURN 

220 COLOR 1,2,C0,01-C255,911, 1 


580 CIRCLE CU,911,10,8,1,0,1,8F 

230 CQLOR 1,4,C0,921-C255,1911,1 


590 SOUND 4,2,12:FORI=1TO300:NEXT:BEEP 

240 C1RCLE f. 210,301, 15, 10, 1,0, ],8F 


:SC=SC+100:IT=0 

250 LINE C20,1251-C20,1911,15 


600 SPRITE 10,C10,101,10,7 

260 LINE C0.921-C70,1251,15 


610 CIRCLE CU,911,10,4,1,0,0.5,BF 

220 PAINT C50,1401,11 


620 CIRCLE eu,911,10,7,1,0.5,1,BF 

280 IN=0: FOR XB=20 TO 235 STEP 8 


630 SPRITE 14,C0,01,14,7:T=0:IN=1=RETU 

290 GOSUB 420 


RN 

300 KS=INKEY$ 


640 YT=105 :1T = 1:XT=X+10 :S0UN05,1,12:F0 

310 IF K$=CHR$ C 281 THEN A=4:8=0:D=7 


RI = 1TO100:NEXT :BEEP 

320 IF KS=CHR$C291 THEN A=-4:B=0:O=0 


650 SPRITE 10,CXT,YT1,10,15:YT=YT+6 

330 IF K$=CHR$C301 THEN A=0:B=-4 


660 IF CXT>X-8 AND XT<X+2^1 AND . eYT>Y 

340 IF K$=CHR«C311 THEN A=0:B=4 


AND YT <Y+81 THEN BA=BA-1 : SOUND 4,1,12 

350 IF K$ = " " THEN GOSUB 520 


:GOSUB 690 

360 X=X+A:Y=ïiB:IF X>230 THEN X=X-A 


670 IF CYT>=Y+201 OR CYT>=1801 THEN SP 

320 IF X<20 THEN X f X-A 


RITE 10,C J 0,101,10,7:IT=0 

380 IF Y>180 OR YC125THEN Y=Y-8 


680 RETURN 

390 S=0:GOSUB 500 


690 CIRCLE eX+12,Y+41,12,9,1,0,1,BF:F0 

400 IF T=1 THEN GOSUB 540 


RI=1T0300:NEXT:BEEP 

410 IF IN=1 THEN 280 


700 IF BA=0 THEN 730 

420 IF XB2X-4 AND XB<X+24 AINO IT=0 THE 


710 DE=1=SPRITE 10,110,101,10,7 

N GOSUB 640 


720 CIRCLE CX+12.Y+41,12,4,1,0,1,BF:RE 

430 IF IT=1 THEN GOSUB 650 


TURN 

4.40 IF DE = 1 THEN DE=0:1T=0:GOTO 280 


730 REH == FIN DE PARTIE == 

450 NEXT 


740 FOR J=1 TO 5 

460 GOTO 280 


750 FOR 1=150 TO 900 STEP 50 

420 P=0:FOR 1=11 TO 13 


760 SOUND 1,1,12 

480 SPRITE I,CXB+P,831,I,1 


770 NEXT îNEXT :8£EP 

490 P=P+8:NEXT:RETURN 


780 SCREEN 1,1:CLS 

500 P=0:FOR I=Q TO 0+2 


790 COLOR 15,4 

510 SPRITE'S,CX+P,Y1,I,1 4=P=P + 8=S=S+1: 


800 PRINT :PRINT "SCORE FINAL :";SC 

NEXT:RETURN 


810 INPUT "UNE AUTRE PARTIE";U* 

520 BEEP:T = ] :Q=Y:LI=X+11 :GR=GR-1 


820 IFU*="0UI"0RU$="0" THEN 80 

530 IF GR=0 THEN 730 


830 IF U$="N0N"0RUS="N" THEN END 

540 Q=Q-4:SPRITE 14, CD,Q1,14,8 


840 GOTO 810 

550 IF Q> =91 THEN RETURN 


■ 


MISSION SURVIE 

Un être humain, invulnérable dit-on, 
hante la planète. A bord de votre 
hélicoptère, vous vous lancez 
à sa poursuite. 


| BUT DU JEU 

Aux commandes d'un hélicoptère, vous 
dèvez détruire ce petit bonhomme qui 
change de couleurs à mesure que ses 
forces s'épuisent. Pour cela, vous dispo¬ 
sez d'une quantité illimité de bombes. Ac¬ 
complissez votre mission au plus vite, si¬ 
non ce drôle d'humanoïde retrouvera 


toute sa puissance et deviendra indes¬ 
tructible;_ 

_ AU CLAVIER _ 

- Pour déplacer l'hélicoptère et larguer 
des bombes, utilisez un joystick connecté 
sur le port 1 : de gauche à droite pour 
avancer ou reculer l'hélicoptère à l’écran; 
vers le haut ou vers le bas pour larguer 


une bombe, même si la précédente n'a 
pas atteint le sol. Dans ce cas, la première 
bombe disparaît de l'écran. 

- A chaque fois que vous touchez à deux 
reprises l'envahisseur, il change de cou¬ 
leur et de plus en plus d'étoiles apparais¬ 
sent. 














10 REM COPYRIGHT TILT MICRO 

20 CLS 

PRINT :PRINT :PRINT :PRINT =PRINT :PRI 
NT :PRINT :PRINT :PRINT :PRINT :C0LÛR4,1 
5:PRINT " • 

50 PRINT CHRSC2493 ; :A=A+1 ÜFAO20 THEN 
50 

60 PRINT " 

70 PRINT" ";=PR1NT CHR*C2493 

5 :PRINT " , "; =PRINT CH 

RSC2493 

80 PRINT " " ; -'PRINT CHR$C249 

3 SPRINT CHR$C2533 ; :PRINT " MISSION SU 
RUIE "SPRINT CHR*C2533 ; :PRINT CHRÎC24 
93 i 

90 PRINT " " ; .'PRINT C 

HR$C2493;:PRINT V "j: 

PRINT CHR$C2493;;PRINT " 
i 

100 PRINT CHR$C2493 j :B=B+1 =IF BO20 TH 
EN 100 

110 PRINT : PRINT :PRINT :PRINT :PRINT 
:PRINT :PRINT =PRINT :PRINT =PRINT :PR 
INT :PRINT =PRINT 


TILT 


xx##x* 

** 

** 

## 

** 

** 

## 

** 

** 

■ ## 

** 

**** 


120 REM LOGO 
130 PRINT " 

*##**" 

140 PRINT " 

##" 

150 PRINT " 

##" 

160 PRINT " 

##" 

170 REM FIN DE LA PRESENTATION 
180 FORI=lT015 

190 S0UNQ5,0,15:F0RL=5T025:NENT:S0UND5 
,1,15 

200 NEXT1 :SOUND0 

210 SCREEN 2,2:CLS:Z=6:S=14:H=4 

220 REM CREATION DU DECOR 

230 COLOR1, 1., C 0 > 0 J — C 355, 1403,14 

240 COLORZ,Z,C0,1403-C255,1913,14 

250 LINE C0,1403-C255,1403,12 

260 FOR 1=0 TO 50:A=RNDC13*131fl:B=RND 

C13X255+1:PSET CB,A3,15 :NEXT I 

270 CIRCLEC219,233,10,15,1,0,1,8F 

280 REM CREATION DU SPRITE HELICOPTERE 

290 PATTERNS#0,"000000FF063F7F91" 

300 PATTERNS#],"919]7F08C87F0000" 

310 PAT TÊRNS#2,"000000FC00C0E1F9" 

320 PATTERNS#3,"FFF 1E14040F00000" 

330 REM CREATION DU SPRITE BOMBE 
340 PATTERNS#4,"007DFF7D00000000" 

350 MAG1 :S0UND5,3,15=A=255:B=160:C=70: 
E=0:F=0 

360 SPRITE0,CB,C3,0,H 

370 REM CONTROLE JOY-STICK 

380 REM DEPLACEMENT ET BOMBE 

390 D=SJI CK C13 :1F D=10RD=5 THEN E=B:F = 

C+15:G=1 

400 IF D=7 THEN B=B-10 

410 IF D=3 THEN B=B+10 

420 IFG=1 THEN E=E+2:F=F+5 

430 IF E>255 OR F>191 THEN G=0:£=0.:F= 

0 



REM PRESENTATION DU JEU 
PRINT :PRINT =PRINT :PRINT :PRINT 
SPRITE4,CE,F3,4,11 
REM. SPRITE DU BONHOMME 1 
PATTERNS#8,"0000000001000101" 
PATTERNSW9,"0301000005020000" 
PATTERNS#10,"000000C0C0C0C0E0" 
PATTERNS#!1,"D0E0C0C04040C000" 


440 
450 
460 
470 
480 
490 

500 SPRITE!,CA,1603,8,S 

510 REM CONTROLE DE DESTRUCTION BONHQM 

ME 

520 IF ABSCE-A3 <7 AND A8SCE-A3>0 AND>A 
BSCF-1603 <7 AND ABSCF-1603>0 THEN W=W + 
1 :SOUND5,0,15:F0RI = 1T015:NEXT I:GOTO 6 
20 

530 REM SPRITE DU BONHOMME 2 
540 PATTERNS#12,"0000000000000000" 

550 PATTERNS#13,"0001000000000000" 

560 PATTERNSi)14, "00000060E06060E0" 

570 PATTERNS#15,"F0F0F0606060E000" 

580 SPRITE1,C A—1,1603,12,S 
590 A=A~6 :1F A<0 THEN A=255 
600 GOTO 360 

610 REM CHANGEMENT DES COULEURS JEU 

620 IFW=9 THEN 680 

630 IF l*J=2 THEN Z=4:S=8:H=7 

640 IF W=4 THEN Z=10 ;S=12;H=8 

650 IF W=6, THEN Z=2:S=4=H=6 

660 IF U=8 THEN Z=]3 :S=1 :H=10 

670 SOUND5,3,15:E=0:F=0:G=0:GOTO 220 

680 SCREEN 1,1=PRINT .'PRINT :PRINT :PR 

INT iPRINT :PRINT :PRINT "MISSION ACCO 

MPLIE":SOUND0 

690 REM AUTRE PARTIE 

700 CLS 

710 INPUT -"UNE AUTRE PATIE ?";M« 

720 IF M$="OUI"0RM$="0" THEN 10 
730 IF M$="NON"ORM$="N" THEN END 
740 GOTO 710 
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OTHELLO 

Les amateurs du jeu de stratégie 
retrouveront ici un classique du genre. Une manière 

de garder les pieds sur terre. 


comme une autre 



_ BUT DU JEU _ 

Vous devez remplir avec les pions de votre 
couleur l'échiquier, sans oublier que l'or¬ 
dinateur poursuit le même but. En encer¬ 
clant les pions adverses, ces derniers 
changent de couleur. Mais soyez sans 


crainte, Yeno, votre très aimable adver¬ 
saire et arbitre, veille à tout. Il est donc en 
mesure de corriger vos erreurs de dépla¬ 
cements. 


_ AU CLAVIER _ 

- Donnez votre prénom, ensuite choisis¬ 


sez une couleur de pions noirs ou blancs. 
- Entrez les déplacements grâce à une let¬ 
tre et un chiffre qui correspondent respec¬ 
tivement à l'abscisse et à l'ordonnée du 
point choisi. L'ordinateur s'occupe du reste. 


10 REM COPYRIGHT TILT (1ICR0 

20 CLS:COLOR 1,12 

30 PRINT : PR I NT TABC,143 ; "OTHELLO" 

40 PRINT :PRINT :INPUT "Uotre prénom:" 
;NH$:IF L-ENCNCIS 3>9 THEN 6 
50 CLS 

60 Diri AC773:CP=4:P0=2:PH=2 
70 DIT! KOC17, 173 

80 CURSOR 21,5:PRINT "YENO":CURS0R29,5 
:PRINT NHS 

90 FOR 1 = 1 TO 64:READ C,0:ACC3=0:NEXT 
100 CHS=CHRS(2293 
110 FOR 1=9 TO 18 

120 CURSOR 1,9 :PRINT CH$:CURSOR I,18:P 
RINT CH$ 

130 CURSOR 9,I:PRINT CHS:CURSOR 18,I:P 
RINT CHS 

140 NEXT :CURSOR 10,8:PRINT "ABCOEFGH" 

150 FOR 1=10 TO 17:READ CS:CURSOR 8,1: 
PRINT CS :NEXT 

160 CURSOR 13,13 :PRINT CHRSC2353iCHRSC 
2363-'CURSOR 13,14:PRlNT CHRSC2363;CHRS 
C2353 

170 KOC13,133 = 1 : KO C14, 133=4:K0C13,143 = 

4 ’■ KO C-14, 143 = 1 

180 REfl === DEPART === 

190 GOSUB 1650 

200 INPUT "Prenez-vous les noirs C0''N3 
: " ; RS 

210 IF RS <> "0" AND RSO"N" THEN 190' 
220 GOSUB 1660 

230 IF RS="0" THEN P0S=CHRSC2363:P0=4: 
P1$=CHRSC2353=P1=1:GOTO 250 
240 P1S=CHRSC2363 :P1=4 :P0S=CHRSr.2353 :P 
0=1 

250 CURSOR 22, 9--PRINT Pis.-CURSOR 30,9: 
PRINT P0S 

260 IF RS="Q" THEN 300 


270 X0=15 : Y0=]4 

280 PS=P1S :P=P1 :AD=P0 

290 GOTO 750 

300 REH === JOUEUR === 

310 GOSUB 1660 

320 P0S=STRSCP03:Pns=STRS[PN3 

330 CURSOR 21,7 :PR1NT " CURSOR 29, 

7:PRINT " ":CURSOR 21,7:PRINT PO$:CU 

RSOR 29,7 :PRINT Pns 

340 IF PI1+P0=64 THEN 1480 

350 R=0 

360 IF PO=0 OR PM=0 THEN 1480 

370 GOSUB 1650: INPUT "Ou jouez-vous:"; 

CS:GOSUB 1660 

380 IF C$="JE PASSE" THEN 570 

390 IF LENCCS3 02 THEN 195 

400 QS=niOSCCS, 1,13 

410 IF QS="A" THEN Q=0:GOTO 490 

420 IF QS="B" THEN Q=1:G0T0 490 

430 IF QS="C" THEN Q=2:G0T0 490 

440 IF QS="D" THEN Q=3:G0T0 490 

450 IF Qî="E" THEN Q=4:G0T0 490 

460 IF QS="F" THEN Q=5:G0T0 490 

470 IF QS="G" THEN Q=6:G0T0 490 

480 IF QS="H" 'THEN Q=7 

490 U=UALCniDSCCS,2,133:U=8-U 

.500 Q=Q+10 :W=U-t-]0 :AP=KOCQ, U3 

510 IF APO0 THEN 300 

520 CURSOR Q, U :PR I NT P0S : PN=Prlr ] : KO C Q, 

U3=P0 

530 XI=Q:YI=U:PS=P0$:P=P0:AD=P1 

540 SB=3 

550 GOSUB 820 

560 IF R=0 THEN 1410 

570 REH === SEGA === 

580 IF PO=0 OR Pri=2 THEN 1480 

590 IF P0+PI1=64. THEN 1480 

600 P0S=STR$CP03 :Pfls=STRsCPn3 

610 CURSOR 21,7 :PRI NT " " : CURSOR 29, 
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? I PRINT " " :CURSOR 21,2:PRINT PO$:Cü 

RSOR 29,?:PRINT PUS 
620 RESTORE :(1P=-13 :10=0 :FO=0 
630 10=0 

640 GOSUB 1650 .'PRINT "Un Instant, Je re 
fléchis..." 

650 FOR 0=1 TO 64 
660 READ C,0 

■620 X=1NTCC/]0J:Y=C-X*10 
680 X=X+10:Y=Y+10 

690 IF KOCX.YJOPl THEN NEXT 0:G0T0 24 

0 

200 XI=X :YI=Y:P4=P1Æ:P=P1 :AO=P0 

210 SB=5 

220 GOSUB 820 

230 NEXT 0 

240 IF 10=0 THEN PRINT "JE PASSE"=BEEP 
2 :FOR1 = 1TO100 :NEXT .'GOTO300 
250 GOSUB 1660:CURSORXÛ,YO: PR INT P1$:F 
■0=1 :XI=XO : Y1=Y0:KOCXO,YÛ1=P1 
260 GOSUB 1560 

220 GOSUB 1650:BEEP:PRINT "JE JOUE EN 
"iAJS : PR I NT 

280 PO=POi-l .-KOCXO, Y0J=P1 
290 SB=3 : GOSUB 820 
800 GOTO 300 
810 END 

820 REH === RETOURNEMENT === 

830 A=0:B=-1 :F=0:IF SB=3 THEN GOSUB 10 
10 :GOTO 850 
840 GOSUB 1300 

850 A=1 îB=—1:F=0: IF SB=3 THEN GOSUB 10 
10:GOTO 820 
860 GOSUB 3300 

820 A=1 :B=0:F=0:1F S8=3 THEN GOSUB 101 
0 : GOTO 890 
880 GOSUB 1300 

890 A=1 :B=1 :F=0 :1F SB=3 THEN GOSUB 10 
10.-GOTO 910 
900 GOSUB 1300 

910 A=0 :B=1 :E=0 :1 F SB=3 THEN GOSUB 101 
0:GOTO 930 
920 GOSUB 1300 

930 A=-l :B=1 : F=0 :1F SB=3 THEN GOSUB'1 
010:GOTO 950 
940 GOSUB 1300 

950 A=-l:B=0 :F=0:IF SB=3 THEN GOSUB 1 
03 0 :GOTO 920 
960 GOSUB 1300 

920 A=-l :B=-1 : F=0 :1 F SB=3 THEN GOSUB 1 
03 0 :GOTO 990 
980 GOSUB 1300 

990 IF R=0 AND P=P0 THEN 1410 
1000 RETURN 

1010 REM === SUS.RETOURN. === 

1020 X=XI:Y=YI 
1030 X=X+A:Y=YiS 

1040 1F X>12 OR Y>12 OR X<10 OR Y<]0 T 
HEN RETURN 
1050 S=KO(X,Y3 

1060 IF F=0 AND 'S=P THEN RETURN 
3020 IF S=0 THEN RETURN 
1080 F=F+I 

1090 IF F>=1 AND S=P THEN GOSUB 1120 


1100 IF S=AD THEN 1030 
1110 RETURN 

1120 REM === RETOURN.ECRAN === 

1130 R=1 
3 140 X=XI : Y=YI 
1150 FOR 1=1 TO F-l 
1160 X=Xh A :Y=Y + B 

1120 GOSUB 1660 : CURSOR X,Y;PRINT P$ 
1180 IF P$=P0s THEN PM=PM+1:P0=P0-1:«0 
CX,YD=P0 

1190 IF P$=P1$ THEN PO=POf] :PM = PM-1 :K0 
CX,Y3=P] 

1200 NEXTI :F=0:RETURN 

1210 DATA 0,16,10,-4,20,4,30,2,40,2,50 

,4,60,-4,20,16 

1220 DATA 1,-4,11,-12)21,-2,31,-2,41,- 
2,51,-2,61,-12,21,-4 

1230 DATA 2,4,12,-2,22,4,32,2,42,2,52, 

4.62, -2,22,4 

1240 DATA 3,2,13,-2,23,2,33,0,43,0,53, 

2.63, -2,23,2 

1250 DATA 4,2,14,-2,24,2,34,0,44,0,54, 

2.64, -2,24,2 

1260 DATA 5,4,15,-2,25,4,35,2,45,2,55, 

4.65, -2,25,4 

1220 DATA 6,-4,16,-12.26,-2,36,-2,46,- 

2,56,-2,66,-12,26,-4 

1280 DATA 2,16,12,-4,22,4,32,2,42,2,52 

,4,62,-4,22,16 

1290 DATA 8,2,6,5,4,3,2,1 

1300 REM === SUE.SEGA === 

1310 X=X1 : Y=YI 
1320 X=XiA :Y=YiB 

1330 IF X<10 OR Y<10 OR X>12 OR Y>12 T 
HEN RETURN 
1340 S=KOCX,Y3 

1350 IF S=0 ANO F=0 THEN RETURN 
1360 1F S=P THEN RETURN 
1320 F=F+, 

1380 1F S=AD THEN 1320 

1390 1F S=0 AND F>0 THEN GOSUB 1420 

1.400 RETURN 

IR 1.0 GOSUB 1650:PRINT " ILLEGAL" : GOSUB 
1660 :CURSOR XI,YJ:PRINT " ":PM=PM-1 :K0 
fXI,YI3=0:GOTO 300 
1420 REM === EUALUATION SEGA === 

1430 PT=PM+PO 
.1440 10=1 

.1450 G=X-10:H=Y-10:O = GX10fH 

1460 IF ACDD>MP THEN MP=ACD3:XO=X : YO=Y 

:MF=F 

1420 RETURN 

1480 REM === GAGNANT === 

1490 PO$=STRæfPOJ:PMs=STR$rpMl 

1500 CURSOR 21,2 :PRINT " ":CURSOR 29 

. ? :PRI NT " " '.CURSOR 21,2:PRINT PO*:C 

URSOR 29,?:PRINT PMS 

1510- IF PO>PM THEN F$="S£GA SC-3000" 

.1520 IF PM>PO THEN F$=NM$ 

1530 IF PO=PM THEN CURSOR 16,24 :PRINT 
ÏEGAL-1 TES 2 S " =ENO 

1540 CURSOR 4,22 :PRINT "UAlNQUEUR : ";P$ 
.1550 END 

1560 IF XO=10 THEN X$="A" 
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1570 IF Xû=ri THEN XS="B" 


1630 IF XQ=17 THEN X$="H“ 

1580 IF X0=12 THEN XS^'C" 


1640 Y0=18-Y0:TS=STR$CY01-6J$=X$+Y$:RE 

1590 IF X0=13 THEN X$= ,, O i ' 


1 LlRN 

1600 1F X0=14 THEN XS=“E" 


1650 CONSOLE 0,3,1,3:CLS:RETURN 

1610 IF Xû=l 5 THEN XS= , ‘F ,: 


1660 CONSOLE 0,24,1,0 '-RETURN 

.1620 IF X0=16 THEN X$«"G" 


■ 



Le système solaire ne tourne pas rond. 
Artificier de l'espace, vous devez 
désamorcer la bombe qui 
menace de tout désintégrer. w 


BUT DU JEU 


Vous êtes en orbite autour du soleil, ainsi 
que cette «fichue» bombe que vous devez 
désamorcer. Tout en conservant votre 


énergie, veiller aux deux mines qui seront 
désormais pour votre vaisseau, symbole 
de destruction totale. 


AU CLAVIER 


Au clavier : 

- «J» éloigne du soleil 

- «L» vous rapproche du soleil. 


5 CLS « GO SÜB 300: PRIHT AT 11,16;CHR* (144) 

18 LET XD=5 = LET YD=5> LET W=INT <RND*8X LET N=1 : LET YM=N •* LET XM=N: LET M=N 
: LET X=5: LET Y=X> LET XB=X= LET YB=X = LET E=500: LET T=0 
15 LET DB=5+INT < RNDY5 > ! LET D=-DB 

40 LET N=N+.2 : LET M=M+<ABS <10-D>/100X LET fl**INKEY*« IF A$="J" AND D>-9 THE 
H LET D=D—1: LET E=E-1 

50 IF AS="L" AND DO THEH LET D=D+1= LET E=E-10 

52 IF XB=W THEN LET DB=DB+RND= IF DB>=10 THEN LET DB=<RND*3>+1 

55 LET X1=X : LET Y1=Y= LET X2=XB: LET X3=XM= LET X4=XD= LET Y2»YB« LET Y3=YM= 
LET Y4=YD 

56 LET Y=11-INT <SIN 

58 LET X=16-INT <COS <M)*D) 

60 LET XB=16-IHT CCOS <N>*DBX LET YB=11-INT <SIN (N>#DB): LET YM*INT CYB/1.2) 
= LET XM=-XB* LET YD=YB-IHT <YB/3X LET XD=INT CXB/1.1) 

62 IF Y=11 AND ABS CX-16X2 THEN GO TO 220 

66 IF Y=YB AND ABS CX-XBX2 THEN GO TO 200 

69 PRINT AT Y1,X1;" " PRINT AT Y2,X2;" " = PRINT AT Y3/X3; 11 “ « PRINT AT Y4,X4 

. Il II 

70 PRINT INK 3; AT YBXB; CMR* <145X PRINT INK 1;AT Y,X;CHR* <146>;CHR* <147X 
PRINT INK 2;AT YM,XM;"+": PRINT INK 2;AT YD,XD;"+" 

72 IF Y=YD AND ABS CX-XDX2 THEN GO TO 220 

74 IF Y=YM AND ABS CX-XMX2 THEN GO TO 220 

80 LET T=T+1: LET E=E-1: PRINT INK 6;AT 0/8;"ENERGIE : ";E;" "« IF E<0 THEN G 

0 TO 220 
99 GO TO 40 

200 PRINT FLASH 1; INK 4;AT 21/2;"DESAMORÇAGE EN ";T;" SECONDES": GO TO 250 
220 FOR A=0 TO 7= PRINT INK A; AT Y,X;CHR* <146);CHR$ <147X PAUSE 5> BEEP .2., A ' 
NEXT A 

250 INPIJT " UNE AUTRE PARTIE ? R* = IF R*="0" THEN GO TO 1 

299 GO TO 500 

300 RESTORE ■ FOR A=0 TO 31= READ V: POKE USR "A"+A,V: NEXT R: RETURN 

310 DATA 8/42,30/127/30/42/8/0/0/0/0/121/255/121/0/0,0/1/3/15/63,255/28/0/3/135 
..79/255/226/255,12,255 
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HELICOS 


Voilà une île qui n'est pas de tout repos. 
Entre la nature indomptable 
et un ennemi belliqueux, il vous faudra piloter 
bien habilement pour sortir vivant 
de ce guêpier 



BUT DU JEU 


qui ne vous pardonnera aucune erreur. 


Faites évoluer votre appareil en évitant les 
dangers maritimes, les vents rabattants, 
les mines anti-gravité (on n'arrête pas le 
progrès) et bien sûr l'ennemi omniprésent 


AU CLAVIER 


Pour deux joueurs 
- Joueur 1 : 

P pour monter 


L pour larguer les mines. 
Pour descendre 
- Joueur 2 : 

Z pour monter 
S pour larguer les mines 
X pour descendre 


1 BORDER 0= PAPER 5 = BRIGHT 1= INK €■■ LET Y=10: CLS « GO PUB 300 
20 FOR fl=18 TO 21= PRINT BRIGHT 1; INK 1; PAPER 1,AT A,0;" 

": NEXT A 

30 FOR A=40 TO 210: |_ET Y-Y+INT <RND*9>-4: IF V<8 THEN LET Y=0 
35 PLOT BRIGHT 1.: INK 0.:A,32: DRAW BRIGHT 1; INK 0:0,+Y : NEXT A 
40 LET M=5: LET N=f1 = LET X=M- LET Y=X 

50 LET H1=0: LET H2=0: LET A$=INKEY*' IF A$="0" AND Y>2 THEN LET Hl=-1 

52 IF Aï="M" THEN LET Hl=l 
54 IF A$="W" AND M>2 THEN LET H2=-l 

56 IF A$="X" THEN LET H2=l 

57 IF Aï="S" THEN PRINT INK 2;AT fl+1,N; 

53 IF A$="K" THEN PR INT INK 2; AT Y+l 

60 PRINT AT Y, Xi. PRINT AT M, H; " 11 : LET X*X-1 • LET N=N+1 = LET M=M+H2= LET 

i Y—Y+Hl 

62 IF X<1 THEN LET X=30 
64 IF N>30 THEN LET N=0 

66 IF Y=N AND ABS CX-NK2 THEN GO TO 210 

67 LET T1=ATTR <M,N+1> ! LET T2=ATTR <Y,X)< IF Tl=73 OR Tl=104 OR Tl=106 THEN G 
0 TO 210 

68 IF T2=73 OR T2=104 OR T2=106 THEN GO TO 200 

70 PRINT INK 1 ; RT Y,X;CHR* <144>;CHR* <145>: PRINT INK 3; AT M, N ; CHR$ f 146>iCHR 
* (. 147 >: GO TO 50 
200 LET N=X= LET M*Y 

210 PRINT FLASH 1.: INK 2> AT M, N-l i "BOUM" ; INPIJT " UNE AUTRE PARTIE "? "jR*: I 
F R$="0" THEN GO TO 1 
220 GO TO 400 

300 RESTORE : FOR A=0 TO 31: READ V ; POKE IJSR "A"+R,V : NEXT A : RETURN 
310 DATA 63,1,57,125,255,255,9,63,248,0,0,1,227,255,3,129,31,128,192,240.63,7.1 
,7,252,123,116,190,255,255,32,248 

























CARS 


Sur ce circuit d'enfer, 
de nombreuses surprises vous attendent. 
Surtout, ne perdez pas les pédales. 



BUT DU JEU 


Parcourir le maximum de kilomètres tout 
en évitant de sortir de la piste et d'embou¬ 


tir les autres concurrents. Autre obstacle : 
le circuit se fait, au fil des kilomètres, de 
plus en plus étroit. 


_ AU CLAVIER 

- Déplacement vers la gauche : «J» 

- Déplacement vers la droite : «L» 


1 BORDER 0= PAPER 0* INK 4- CLS = GO SUE 200 
10 LET X=13 = LET L=10= LET T=10= LET N=0' LET K=0 
20 FOR A=8 TO 21' PRINT INK 6;AT A,10;"!";TAB <20J;"!"s NEXT A 
40 LET N~0 : LET A$=INKEY$' IF A$="J" THEN LET H=-l 
45 IF A$="L" THEN LET N=1 

50 PR INT AT 3, Xi" " « LET X=X+N= IF ATTR <10, XX >6 THEN GO TO 100 
60 PRINT INK 1.; AT 10,X;CHRf <144? 

75 LET T=T-1+INT <RND*3>' IF T+L>31 THEN LET T=31-L 
77 LET K=K+1= POKE 23692,255' IF T<=0 THEN LET T=1 

80 PRINT INK 1jAT 21,10' PRINT INK 1 ;TAB <T?j INK 6i"\“i « PRINT INK Si TAB <T+L 
?;"!"' IF <K/50>=INT <K/50? AND L>=3 THEN LET L=L-1 
85 IF RND>.8 THEN PRINT INK 3;AT 20,T+<RND*L>;CHR* <145? 

90 IF RND>. 7 THEN PRINT INK 4.; AT 21,T+<RND*L>;CHR* <146? 

99 GO TO 40 

100 BEEP .3,5' PAUSE 100' PRINT FLASH 1; INK 4; AT 4,3,'"VOUS AVEZ PARCOURU ";K>" 
Km" = INPUT " UNE AUTRE PARTIE ? %R*' IF RS="0" THEN GO TO 1 
110 GO TO 300 

200 RESTORE = FOR A=0 TO 23' READ V« POKE USR "A"+A,V= NEXT A' RETURN 
210 DATA 231,126,60,36,36,126,60,24,24,60,126,102,60,60,255,231,60,126,231,36,3 
6,60,255,219 


HOP HOP 

Aie, Aïe, Aïe, que de monde sur votre moniteur ! 
Parmi ces invités inopportuns, 

se glissent certains monstroïdes qui ont une fâcheuse tendance 
à vous considérer comme faisant partie intégrante 


du menu de la soirée. 



162 




















? 


44 IF AS="W" THEN LET N=-l= LET N=0 
46 IF A*="X" THEN LET M=1: LET N*0 

H IE T 2î*«SVH E ïï PRINT RT Y ^" «-ET *=INT <RND&29)+1 > LET Y=INT <RND*18)+1 

. 4 ? F P rIs T THFK| V |'pT O c fîPïJÏÏ YM.Xri;" 11 : LET X=X+N= LET Y=Y+M= LET 0=ATTR <Y,X 
' C=5 THEN LET S=S+10= BEER .1,1= GO TO 50 

49 IF C< >6 THEN GO TO 300 

l'Æ P 5iS 5 It^ X ÎÏÏ R ! i 144?: GÜ SÜB 240: PRINT INK 3 ' RT YM,XM;CHR$ (. 145> 1 IF RN 
D>.94 THEN PRINT INK 5J RT < RND#18 >+l, < RND*29)+1 ; CHR* 046) 

90 IF X=XM AND YM=Y THEN GO TO 300 

95 PRINT INK 4.: RT 21,10; "SCORE * ";S = GO TO 40 

200 RESTORE = FOR R=0 TO 31= RERD V = POKE USR "A"+R,V= NEXT A = RETURN 

fi® ? R J R , % Ç i ' i 26 ; 213 > 1 52 ■■ 255,189,195,126,60,126,219,18&,255,195,189, 255,60,24,60 
,126,126,126,60,24,56,16,124,188,188,40,40,108 
240 IF RND>.6 THEN RETURN 


241 IF X>XM THEN LET XM-XM+J. = RETURN 
245 IF Y>YM THEN LET YM=YN+1= RETURN 
250 LET XM*XM-1= LET YPNYM-1« RETURN 
300 BEEP .3,5= PAUSE 100= 

TO 1 


INPUT " UNE AUTRE PARTIE ? ";R$= IF R*="0" THEN GO 


CRASHTOWN 


Dure corvée que d'éviter les radars 
quand on est pilote de ligne en temps de guerre. 

Il faut voler en rase-mottes 
et la ville que nous allons devoir traverser devient 
un danger permanent pour nos passagers. 


BUT DU JEU 


imitez les grands buildings si fréquents 
8ns nos villes modernes. Frôlez les im- 
neubles bas, ils vous réserveront de 



bonnes surprises, et faites ainsi le maxi¬ 
mum de kilomètres. 


AU CLAVIER 


- W pour la basse altitude 

- J pour aller à gauche 

- L pour aller à droite 


- Q pour la haute altitude 


1 PAPER 4= INK 4= PRINT = BORDER 4 

-r ILfSonSfi .. 3008 LET K=0! CLS ! LET M * 0! P0KE 23692,255 : LET X=15 = LET 0280= LE 
T H5= HnUTt 

40 POKE 23692,255= LET H=0= LET R$=INKEYS= IF fl$="W" THEN LET Hï»"HAUTE"= LET 
0 = 0-20 

42 IF R$="X" THEN LET H$="BASSE" 

44 IF R$="J" THEN LET M=-l 

45 IF A$="L" THEN LET M=1 

50 LET 0=0-1= PRINT AT 0.29;" 

,:C= IF C<=0 THEN GO TO 200 

55 PRINT AT 9,X;" "« LET X=X+M= IF H$="BASSE" THEN GO SUB 170 
68 FR INT INK 1;RT 18,X.= CHR$ <159)= GO SUB 150= LET K=K+1 = GO TO 30 


PR INT AT 0,0 ; " ALT ITUDE = “ ; H* ; " ESSENCE = 
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150 LET T=INT <RND*7>+1« IF T>3 THEN PRINT RT 21,0J" "» PRINT : RETURN 
155 LET P-INT <RND*18>+7 = IF T<3 THEN PRINT RT 21,P;" ■" = PRINT * RETURN 
160' PRINT RT 21,Pj"I "« PRINT '• RETURN 

170, LET D=RTTR LET F=RTTR <10,X-1>- IF D=44 OR F=44 THEN LET C=C+16^ RE 

TURN 

180 IF D=40 AND F=36 THEN GÜ TO 200 
190 RETURN 

200 PRUSE 100 : CL S = PR INT RT 8,2; "VOUS AVEZ PARCOURUT Km": PR INT RT 12,5 

;"une autre Partie ?" 

220 LET R$=INKEY$ : IF R*="0" THEN GO TO 1 
230 IF R$="N" THEN CLS : GO TO 400 
240 GO TO 220 

300 RESTORE « FOR A=0 TO 7: RERD D’ POKE USR "P"+fl,D= NEXT FU RETURN 
310 DATA 56,16,16,254,108,56,16,16 


Tl .99/4 A 


METEOR 


Nous sommes en 3130. 

La couche atmosphérique qui protégeait si bien notre monde 
est aujourd'hui bien mince. 

Depuis quelques siècles, un nouveau métier à risque 
est né : briseur de météores. 



_ BUT DU JEU _ 

Interceptez les bolides cosmiques avant 
qu'ils ne s'écrasent violemment au sol, in¬ 
cendiant de ce fait les cités humaines. 
Votre but consistera également à parer 


aux divers foyers d'incendie à l'aide de vo¬ 
tre engin élaboré. 

AU CLAVIER ~ 

- Déplacement vers la gauche : «S» 

- Déplacement vers la droite : «D» 


- Pour relâcher les météores interceptés 
appuyez sur «X». 


io call clear 
20 CALL SCREENI 15) 

30 :ALL COLORt 13,2,1 I 
40 CALL COLORt14,2,1) 

50 CALL COLOR115,9,1) 

60 CALL COLORt16, 16,l) 

70 CALL CHAPI128,»183CFFFFFFFFFF 
FF' ) 

80 CALL CHAR!129,•18183C3C7E7EFF 
FF" ) 

90 CALL CHAR!130,•FFFFC3C3C3FFFF 
FF» J 

100 CALL CHAR(131,*30C0E0F0F8FCF 
EFF» ) 

110 CALL CHAR!132,•F TE7C38 181818 
1FF* I 

120 CALL CHARt133,•0103070F1F3F7 
FFF» ) 

130 CALL CHARt134,•9999FFFFFFFFF 
FFF» ) 

140 CALL CHARl 135,»FFFFFF1818181 
818» ) 

150 CALL CHAR( 136,•FFFFFFFFFFFFF 
FFF» ) 

160 CALL CHARtl37,»03070FlA7F7F» 
) ' 

170 CALL CHARl138,•COE0F058FEFE• 

> 

180 CALL CHAR(139,»07OFlEOF0F3OF 
OFF» 1 


190 CALL CHARt 140,•10187C3F0704F 
8FA* ) 

200 CALL CHARI141,»A5A581993C7E7 
El8' ) 

210 CALL CHARl142,■0000182442FF• 

) 

220 CALL CHAR1144,»A5A581993C7E7 
E18» ) 

230 CALL CHARl145,»4940091C1C5DF 
DF F» ) 

240 CALL CHAR1146,»FFFF7722») 

250 CALL CHARl147,•7E7E7E7F7E7E7 
E7E» ) 

260 CALL CHARl 152,•002139307FFF• 

) 

270 CALL CHARl 153,»70F8FCFEF FF F » 

) 

280 CALL CHARl154,•A5A581993C7E7 
F18 * ) 

290 CALL CHARl 155, 1 7F7E7F7E7E7E7 
E7E» ) 

300 CALL HCHARl1,8,146,19) 

310 0$=CHR$132) 

320 H$=CHR$1 152 J£CHR$ 1 15 3) 

330 Vfc = N$f.wfcr.O$£W$£Û$£Hf £W$£W$SG$ 

40$A0$4P$AWt 

340 JA=10 

350 IA=7 

360 GDSUB 400 

370 JA=11 


380 GOSOB 400 
390 GOTO 500 
40 0 AA = L EN1V$) 

410 FJR BA*0 TO AA 
420 EA=1+ BA 
430 tF AA<EA THEN 490 
440 J$=SEG$(V$,EA,AA) 

450 CA=ASC(U$) 

460 F A=IA*UA 

470 CALL HCHARlJA,FA,CA,1) 

480 NEXT BA 
490 RF TURN 

500 V$=CHP$l129)£0$£0$40$4Ü$4CHR 
$1129)£CHR$I12R)6O$£O$£0$£O$£CHR 
$1128)£0$ £C HR $( 134) 

510 JA=19 
520 IA=11 
530 GOSUB 400 

540 X$=CHR t(136)£C HR$ t13 6) 

550 V$=CHR$<130 )4ü$4C!$40$40$4CHR 
$1 130)£0$£CHR$( 13 3)£ X $ £CHR $ 1 131) 
£0SECHR$11341£CHR $( 136>£CHR$1134 
) 

560 JA=20 
570 IA= 11 
580 GOSUB 400 

590 Y$=CHR$(130)4CHR$I130)4CHR$t 
130) 

600 V$=CHR$tl33)ECHR$(131)£CHR$t 
129)40$4CHR$(133)4X$4X$40$4Y$4CH 


164 


















R$U30)£0$6CHR$U30)£CHR$( 135 JCC 

1210 IF X(K)<7 THFN 1300 

1333 IF CIK) = 144 THEN 1940 

HRS( 130 1 

1223 IF 27<X(K) THEN 1300 

1843 CALL HCHAR(14,X(K),32,l) 

610 JA=2 1 

1233 IF X1 K )=11 THEN 1300 

1853 IF FF(GK)<>1 THEN 1890 

620 I A=8 

1243 IF XI K )= 14 THEN 1300 

1363 PTS= PTS + 10 

630 GOSUB 400 

1253 IF XI K)<21 THEN 1270 

1873 FEU=FEU-l 

640 V$=Yt£0V£CHRt(l32)£CHRl( 1321 

1263 ir XIKJC24 THEN 1300 

1880 CALL HCHAPILI,X(K),32,1) 

ACHTJI136)AOJACHRJI13014CHRt(135 

1270 IF LI K) = 9 THFN 2030 

1890 L1 K)=0 

JtCHR$l135)£CHRt( 130) 

1263 IF L 1K ) = 10 THEN 2080 

1900 XI K) = 0 

650 JA=2 2 

1290 IF LI K ) = 11 THFN 2070 

1910 CI K)=0 

660 IA=8 

1300 IF L IK)O 13 THFN 1590 

1920 K=0 

670 GOSUB 400 

1313 IF I+5<X(K) THEN 2030 

1933 GOTO 2090 

680 PTS=0 

1323 IF XIK1CI-4 THEN 2030 EL S E 

1943 CALL HCHARILI.X1K),145,1) 

690 SC=3. 

1353 

1953 IF FEIoK) = 1 THEN 1890 

700 OPTION BASE 1 

1333 IF I+2<X(K) THEN 2030 

I960 F ElGK ) = l 

710 GK=X(K) 

1340 IF X* K Xi- l THEN 2030 ELSE 

1973 FEU=FFU+1 

720 OIM FEI32) 

1483 

1983 GOTO 1890 

730 RANOOMIZE 

1353 IF C(K)<>141 THEN 1330 

1990 CALL HCHAR(14,XIK),32,1) 

740 FEU=0 

1360 FOR E = 0 TO 8 

2333 IF C(K)<>144 THEN 1890 

750 IF 0<SC THEN 780 

1373 CALL HCHAPI12,1,137,1) 

2013 PTS = PT S+ 15 

760 CALL KrY(5,NN,STATUS) 

1383 CALL HCHAR(12,1 1*11.138,1) 

2023 GOTO 1890 

770 IF STATUSOO THEN 10 ELSE760 

1393 CALL HCHARI 12,I,139,1) 

2033 IF L C K) = 0 THFN 1200 

780 SC=SC-1 

1433 CALL HCHARI12,(1*1),140,1) 

204J IF XI K) = 0 THEN 1200 

790 1=17 

1410 NEXT E 

2050 CALL HCHAR(LI K1,X(K)•32,1) 

800 CALL HCHARI12,1,137,1) 

1420 CALL HCHAP112,1,32,64) 

2063 IE LI K1 = 9 THEN 20R0 

010 CALL HCHARI12,(I+l),138,1) 

1430 L(K)=0 

2073 CALL HCH AR 11 L I K ) ♦ 11 , XI K ) , CI 

820 CALL HCHAR(24,13,32,3) 

1440 XI K)=0 

K) ,1 1 

830 CALL HCHARI24,13, 142,SC) 

1453 CIK) = 0 

2380 LI K| = LI K)♦1 

840 V$=*FEU* 

1460 K = 0 

2093 CALL KEY(5«N,STATUS) 

850 JA=24 

1470 GOTO 750 

2103 IF N083 THEN 2 150 

•860 I A= 1 6 

1480 IF i=Z THEN 1500 

2110 IF 1=1 THEN 2090 

870 GOSUB 400 

1490 IF 0=2 THEN 1500 ELSE 1530 

2123 CALL HCHARI12,1,32,l) 

880 IF FEU=0 THEN 990 

1500 D=0 

2133 1=1-2 

890 IF FEUC=10 THEN 990 

1510 G=0 

2143 GOSUB 2210 

900 IF FEU<14 THEN 950 

1520 GOTO 200 

2153 IF N<>68 THEN 2380 

910 CALL HCHARI 12,15,70,l) 

1533 IF XI K) = I THEN 1570 

216.) 1F 1 = 31 THEN 2090 

923 CALL HCHARI 12,16,73, 1) 

1540 IF X(K)=I- l THEN 1570 

2170 CALL HCH AP I 12,I,32,I) 

933 CALL HCHARI12,17,78,1) 

1550 0=1 

2183 1=1+2 

940 GOTO 960 

1560 GOTO 2090 

2190 GUSUB 2210 

950 CALL HCHARI24,19,32,13) 

1570 G=1 

2200 GOTO 2380 

960 CALL HCHARI24,19,155,10) 

1583 GOTO 2090 

2213 CALL HCHARI12,1,13»,1) 

970 CALL HCHARI24,19,145,(FEU-10 

1593 IF K=0 THEN 2280 

2223 CALL HCHAR 112, I l ♦ 1 ) , 1 38,1 )• 

I) 

1600 IF LIKI014 THEN 2280 

2233 IF K =0 THEN 2280 

980 GOTO 1010 

1613 CALL HCHAR(14,X(K),32,1) 

2243 IF G(>1 THFN 2290 

990 CALL HCHARI24,19,32,13) 

1623 IF CIK)<>141 THFN 2030 

2253 LI K I = 13 

1003 CALL HCHAR(24,19,155,FEU) 

1630 PTS=PTS+5 

2260 X I K ) = I 

1010 PT*=STR$IPTS> 

1640 X ( K ) =0 

2273 GOSUB 2350 

1020 Yt=*PTS.='4PTj 

1650 C C K 1 = 0 

2280 RETURN 

1030 JA=24 

1660 L ( K ) =0 

2290 IF 0<>l THEN 2380 

1040 !A=2 

1673 K=0 

2333 L(K) = I 3 

1050 GOSUB 400 

1680 GOTO «80 

231 J XI K) = 1 + 1 

1360 IF K=1 THEN 1200 

1693 IF XIK)<8 THEN 1990 

2323 GOSUB 2350 

1070 K=1 

1790 IF 25<X(K) THEN 1990 

2333 RETURN 

1080 XI K ) =! NT I RND*32 ) 

1713 IF XI K ) = 11 THEN 1780 

2340 GOTO 2380 

.1090 IF XIK )<8 THEN 1110 

1720 IF X1 K ) = 16 THEN 1780 

2350 CALL HCHAP(13,(1-21,32,6) 

1103 IF XIK1C26 THEN 1140 

1733 IF XI K )= 17 THEN 1780 

2363 CALL HCHARI13,X1 K),CI K 1,I ) 

1113 L1 K I=3 

1743 IF XI K ) = 22 THEN 1780 

2370 RETURN 

1123 C IK )= 154 

1750 IF XI K) = 24 THFN 1780 

2383 IF N088 THFN «80 

1130 GOTO 1200 

1763 IF 17<X(K) THEN 1800 

2393 IF G=1 THEN 2420 

1143 L1 K ) = 5 

1773 GOTO 1820 

2400 IF D= l THEN 2420 

1150 XX=RND*1 

1783 L 1= 18 

2410 GOTO 880 

1163 IF XXI0.8 THEN 1190 

1790 GOTO 1830 

2423 G=2 

1170 CI K 1 = 141 

1800 L 1=19 

2430 0=2 

1160 GOTO 1200 

1813 GOTO ' 1830 

2440 GOTO 880 

1193 C I K ) = 144 

1820 LI = 20 


1203 IF K=0 THEN 1070 


■ 
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^ CAPRICORNE TWO 

Un hélicoptère vous traque 

dans les dédales d'un relief tourmenté avec le seul but 
de vous astreindre à commettre votre dernière erreur. 



BUT DU JEU 


- Tir de l'hélicoptère bleu : «A». 

- Tir de l'hélicoptère vert : «,». 


sible les missiles de croisière de votre ad¬ 
versaire. Là-bas, hésiter c'est mourir I 


- Déplacement de l’hélicoptère bleu 
touches «E», «S», «D», «X». 

- Déplacement de l'hélicoptère vert 
touches «0». «K», «L», «,». 


_ AU CLAVIER _ 

Contourner les montagnes, choisir les 
angles les plus intéressants, éviter si pos- 


10 CALL CLEAR 

4JO IF 1115 THEN 420 

870 GOSUB 67C 

20 CALL SCREENl 15) 

410 IF 1=5 THEN 440 

080 CALL KEY(5,NN,STATUS I 

30 CALL CCLGRt13,9,1 1 

420 IF J( 116 TNFN 45C 

390 IF ST AT US = 0 THEN 380 EL SE 10 

40 CALL C3L no 114,14,11 

430 1F 11125 THEN 450 

PRISE EN COMPTE DU CLA V I E======= 

50 CALL CCL0RI 15,5,1) 

440 GOTC 490 

910 CALL KEYI5,N,STATUS) 

60 CALL CCLGPtLfr, 13,Il 

450 X=INTIPMD*50> 

920 IF N()65 THEN 370 

70 C«LL GHA R (128, 'FFFFFFFFFFFFFF 

460 IF 11X THEN 490 

930 IF Ml(10 THEN 1020 

FF' ) 

470 Al J , I 1 = 2 

940 JM=J8 

30 CALL CHAR(129,'00422a 1FFFA442 

490 CALL HCHARlJ, I, 136, 1) 

950 IM= I BU 

• 1 

490 NEXT I 

960 MI=3 

90 CALL CrlARU30,'004225FFF82442 

500 NEXT J 

970 1F NI 159 ThEN 1020 

■ 1 

NOUVEL HEL ICCPTERE==== = = = ====== = 

980 IF MI(10 THEN 1020 

100 CALL CHA = ( 131 , ' 333243FF43 • ) 

510 10=5 - 

990 JM = JV 

110 CALL CHAR(132,•081C03080B081C 

520 13=5 

1000 I M= I VU 

1.0 

530 JV=16 

1020 MI=7 

120 CALL CHAR(1 ? 3 ,* 000OC 2FFC? • I 

540 1V= 25 

DEPLCT MISSILE 55 ======= = == = = == = = = 

130 CALL CHAPU34, ' 383 81 01010103 

550 A(16,251=4 

1020 IF M1=0 THEN 2260 

310* ) 

560 M1 = 0 

1030 IF MI=? THEN 1140 

140 CALL CHAR!136,'0242C3EB3F010 

570 CALL 3CHAR(E,5,144,1| 

1040 IF MI = 3 THEN Li ÇO 

0101*1 

530 CAI L rl( HAR l 24, 5, 144,H0 1 

1050 IF MI=4 THEN 1220 

150 CALL CHARU44,'0042241FFFA44 

590 CALL HCHARl16,25,152,11 

1060 IF MI=5 THEN 1260 

?• ) 

600 CALL HCHAPl?4,l*,l 52,HV1 

1070 IF M1=6 1HEN 1300 

160 CALL CUAR(145,'060É0606667E3 

°E TOJR = = = = = = = = ==== = ==== = = = = = = = 

1080 IF MI = 7 THEN 1340 

C* ) 

610 P9S = STP S(P 61 

1090 IF MI=3 ThEN 1300 

170 CALL CHAM 15? , •004225FFF8244 

620 VS-CHRSl 145I4CHRS161 UPBS. 

1000 J0 = J M-1 

2*1 

630 JA= 23 

1110 10= IM 

190 CALL CMAP(153,'0 606060666 7E3 

640 IA= 5 

1120 C = 13 2 

O 

650 G0SU8 670 

1130 GOTC 1410 

INITIAL ISAT ICN = = = = = === = = ======== 

660 GOTC 770 

1140 JO= JM—1 

190 H9=1 

RCUTINE AFF ICHAGE= = === = = === ==== 

1150 10= IM*1 

200 HV=1 

670 AA= LENlVS 1 

1160 C=132 

210 P0=O 

630 FOR 8A=0 TQ AA 

1170 GOTC 1410 

220 PV=0 

690 EA=1*ÔA 

1100 J3=JM 

230 CPTICN BASr 1 

700 IF A A1E A THEN 760 

1190 10= I M*1 

240 DI N AI 22.32 ) 

710 US= SEG51 VS,E»,AAI 

1200 C=123 

250 RANOGMI L E 

720 CA = ASCC'JS) 

7^n FA - I A 

1210 GOTC 1410 

1220 J0=JM+1 

1230 10= IM ni 

L AUK t - - — 

260 CALL HCHA«( 

740 CALL HCHARl JA,FA,CA,1 ) 

270 CALL VCHAPI2,32,129,211 

750 NEXT BA 

1240 C=l34 

200 CALL HCHAR122,1,12e,31) 

760 RETUPN 

1250 GOTO 1410 

290 CALL VCH AR 1 2,1,129, 201 

770 PUS= S TR S(PV1 

1260 J0=J«+1 

MATRICE TERRA IN================= 

790 VS=CHPSl153)4CHR SI 61liPvS 

1270 I0=IM 

300 FOR J=1 TO 22 

790 JA=23 

1280 C=134 

310 Al J,11 = 1 

300 1 A=16 

1290 GOTC 1410 

320 AIJ ,32 t = l 

810 GOSU0 670 

1300 JO=JMU 

330 NEXT J 

CONDITION DE FIN DE PARTIS====== 

1310 IG=IM-l 

340 FOR 1=2 TC 31 

820 IF 10IHB THEN 840 

1320 C=134 

350 AU, 1 1=1 

330 IF HV{10 THEN 900 

1330 GOTO 1410 

360 AI 2 2,2 )= 1 

340 VS=•LE 9U0JET HELICO EST ECO 

1340 J 0 = J M 

370 NEXT I 

RNEI • 

1350 I0=IM-l 

330 POP J=2 TC 21 

350 JA=22 

1360 C=l?l 

390 F0« 1=2 TG 31 

860 IA=2 

1370 GOTC 1410 
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1380 J0=JM-1 
1390 10=1*1-1 
1400 C=132 

1410 IF A(JO, 10)1)0 THEN 1490 

1420 CALL HCHARI JM, IM, 32,-1 I 

1430 CALL HCHARIJC,IC.C.J) 

1440 Al JK, IM)=0 

1450 JM»JO 

1460 IM=IO 

1470 A(JM,IM)=5 

1480 GOTO 2260 

.1490 IF A(JO,IO»m THEN 1550 
1500 IF MI=8 THFN 1520 
1510 MI=MI Fl 
1520 GOTO 1030 
1530 MI=2 
1540 GOTC 1030 

1550 IF AI JO,ICI I 12 THEN 1590 
1560 PANOOMI2E 
1570 Ml = 1 NT!RNO# 7I * 1 
1580 GOTC 1030 

1590 IF At JG,101)3 THEN 1700 

1600 CALL HCHAP(JM,IM, 32,1I 

1610 FOR E=0 TO 8 

1620 CALL HCHAP(JC,IC,129,1I 

1630 CALL HCHARIJC,10, 32,1) 

1640 NEXT E 

1650 PV = PV«-10 

1660 H0=HtUl 

1670 CALL HCHARIJV,IV,32,Il 

1680 MI=0 

1690 GOTC 2160 

1700 CALL HCH4RIJM,IM,3?,1) 

1710 FOR E=0 TO 8 


1720 CALL HCHARIJC,IC, 130,1 1 

2260 IF N<>69 THEN 2300 

1730 CALL HCHARIJC,IC,32,’ ) 

2270 JP = J8-1 

1740 NEXT E 

2280 IP=Id 

1750 PB = PHH0 

2290 GOSUB 2590 

1 760 HV = FV F J 

2300 IF N<> 79 THEN 2341 

1770 CALL HCHARIJB,1B,3 2,1 ) 

2310 JP=JV-l 

1780 M 1= 0 

2320 IP=IV 

1790 GOTO 2160 

2340 GOSUB 2630 

RÜUllNfc CF 01P L C T ============ == = 

2340 IF N<>68 THEN 2330 

1800 C=144 

2350 JP=JB 

1810 GOTC 1830 

2360 I P = I B»] 

1820 C= 1 52 

2370 GOSUB 2590 

1830 IF A(JP,IP)I)0 THEN I960' 

2380 IF N<>76 THEN 2420 

.1840 CALL HCHARIJO.ID,32,’) 

2390 JP=JV 

1850 CALL HCHAR1JP,IP,c.l) 

2400 IP=IVF1 

I960 Al JB,101 = 0 

2410 GCSU8 2630 

ld 70 IF Cl * 144 THEN 1920 

2420 IF N<>88 ThEN 2460 

1880 JB=JP 

2430 JP-JBK 

1990 IB = IP 

2440 IP= IB 

1900 Al JB, I B ) = 3 

2450 GOSUB 2590 

1910 RETURN 

2460 IF N<>44THEN 2500 


1920 JV=JP 
1930 IV=IP 
1940 AlJV,IV)=4 
1950 RETURN 

I960 1F A(JP.I°)=3 THEN 1980 
1970 IF A1JP, IP)()4 THEN 2030 
1980 Htt=HBFl 
1990 HV=HV*I 

2000 CALL HCHAPIJO,10,32,1) 

2010 CALL HCHARIJP,IP,32,1) 

2020 GOTC 21.60 

2030 FOR E=l TC 20 

2040 CALL HCHARIJO,ID, C,l I 

2050 CALL HCHARIJC,10,32,1 J 

2060 NEXT E 

2070 IF MI=3 THEN 2100 

2080 CALL HCHAAIJM,IM,32,1) 

2090 AI JM,IM ) = 0 

2100 IF Cl)144 THEN 2140 

2110 HB = hBH 

2120 PV=PV+ 5 

2130 GOTO 2160 

2140 HV=HV+I 

2150 PB=PBf5 

2160 A(je,IB)=0 

21 70 Al JV, I V 1=0 

2180 IF IM=0 THEN 2200 

2190 AI JM,IM 1=0 

2200 Al JC,101 = 0 

2210 IF A(JP,IP)(3 THEN 2230 

2220 A(JP,IP ) = 0 

2230 CALL HCHARIJB,IB,32,l» 

2240 CALL HCHARI JV,IV, 32,1 ) 

2250 GOTC 510 


2470 

JP=JV*1 


2480 

IP=IV 


2490 

GOSUB 2630 


2500 

IF N<>83 THEN 

2 540 

2510 

JP = JB 


2520 

IP=18-1 


2 500 

G0SU8 25S0 


2 540 

IF N<>75 THEN 

900 

2550 

JP = JV 


2560 

IP=IV-1 


2570 

GCSUB 2620 


2580 

GCITC 900 


2590 

JD=JB 


2600 

10= IB 


2610 

GOSUB 1820 


2620 

RETURN 


2630 

JD = JV 


2640 

I 0= IV 


2650 

GOSUB 1820 


2660 

RETURN 


OEPLCT 8 DIRECTIONS 


2670 

IF NO82 THEN 

2710 

2680 

J P=J8-1 


2690 

I P= I B*-1 


2700 

GOSUB 2590 


2710 

IF N<>BO ThEN 

2750 

2720 

JP=JV-1 


2730 

IP=IV+l 


2740 

GOSUB 2630 


2750 

IF N<> 67 THEN 

1 2790 

2760 

JP=JB*-1 


2 7 70 

IP=IB*l 


2780 

GOSUB 2590 


2790 

IF N046 THEN 

2 83 0 

2800 

J P= JV F 1 


2810 

I P= IV Fl 


2820 

GOSUB 2630 


2330 

IF N<>90 THEN 

2970 

2840 

JP=JBFl 


28 50 

I P = I B-l 


2960 

GOSUB 2590 


2870 

IF N<>77 THEN 

2910 

28 80 

JP=JVFl 


2890 

IP=IV-l 


2900 

GOSUB 2630 


2910 

IF N<> 87 THEN 

2950 

2920 

J P = JB—1 



12670) 


2930 I P*18-1 
2940 GOSUB 2590 
2960 IF N<>73 THEN 900 
2960 JP=JV-1 
2970 IP=IV-l 
2980 GOSUS 2630 
2990 GOTO 900 


00 ^ 


MASTER 


Ce jeu de réflexion et de stratégie 

vous oppose à votre micro qui, lui, dispose d'une faculté essentielle : 

la rapidité de réflexion. 

cité. Vos déductions vous permettront, 
peut-être, de vaincre la machine. 


BUT DU JEU 


Votre objectif sera de découvrir les 

nigmes et combinaisons que vous propo¬ 
sa votre TI99. Pour les résoudre il vous 
Budra faire preuve d'une grande saga- 


AU CLAVIER 


- Faites RUN et appuyez sur une touche 
quand le TI99 vous le demande. 



- Rentrez un chiffre. 

- Pour vous déplacer, appuyez sur les 
flèches. 

- Pour valider une combinaison, faites 
-ENTER». 

- Pour stopper la partie, faites «FCTN9». 


1.0 • 

Proçjrairime de 

MIND 

- TI99/'1A 

20 ' 

Ordre des couleurs 5 


30 ' 

! Jaune pale ! 

Brun ! 

Cris ! 

/ I0 ' 

IVert clair! 

Bleu ! 

Jaune ! 

50 ' 

! :l ! 

2 ! 

3 ! 

Vert pale ! Transparent 

! 


Noir 

! Blanc 

! Violet 

! Or ar ide ! 

•9 

! 5 

! 6 

! 2 ! 

Bleu pale IVert fonce! 

R ou de 

! 

8 

! 9 ! 

0 

! 

1.0 0 CAL 

.. CLEAR 
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110 CALL SCREEN ( 8 ) 

120 DIM T<16>y 9(16 >y G < 30 y 16 ) 
y E(30)r F(30 > y Y(16) 

130 PRINT " JEU DU MASTER 


140 GOTO 440 

.15 0 A«“ " FFFFFFFFFFFFFFFF " 

160 CALL CHAR(40 rA*) 

170 CALL CHAR(41v*") 

180 CALL CHAR<88rA4) 

190 CALL CHAR<89y"“) 

20 0 CALL COLOR < 2 y 2 y 3 ) 

210 CALL COLOR( 8 y 4 y 5 > 

220 FOR 1=1 TO S 
230 CALL GHAR<<1+10)*8+32»A4 
) 

240 CALL CHAR< < I+lü ) *8+33 » * “ 

) 

250 CALL GOI..OR ( 1+11 » < 1+3 ) *2- 

1-CI>3)*2) 

26b NEXT I 

270 FOR 1=0 TO 14 

280 READ Y <I) 

290 NEXT I 

300 DATA 128»41v89» 136»40 » 15 
3 y 145 y 129 y 121 y 144 y 137 y 12 0 y 15 
2 y 88y96 

310 FOR 1=84 TO 38 

320 READ A4 

330 CALL CHARdyA4 ) 

340 NEXT I 

350 FOR 1=59 TO 64 

360 READ A4 

370 CALL CHAR <Iy A4) 

380 NEXT I 

390 CALL CHAE<87y"181818FFFF 
181818“) 

400 CALL CHAR(96y“C3663C1818 
3C66C3") 

410 GOTO 1140 

420 DATA 00 0 0 00 00 0 0 0 0606 y 00 0 
0 0 0 FFFF y 18181 fil J. 818181818 y 0 0 0 
0001F1F181818 y 000000F8F81818 
18 y 1818181F1F y181810F8F8 
430 DATA 0 0 Ü 0 0 0 FFF F181818 y 18 
1818FFFFy1818181F1F1B1818»18 
1818F8F8181818 
440 INPUT “Combien de pions 
par comb i -r.a i sons vou 1 ez-vou 
» ? "JL 

450 IF L<2 THEN 440 
460 IF L>15 THEN 440 
470 l-INTfL) 

480 INPUT "Combien de eouleu 
rs par pions voulez--vous 

? " : c 

490 II- CX2 THEN 480 
500 IF 015 THEN 480 
510 OINT <0-1 
520 CALL CL.EAR 

530 PRINT “ Les couleurs in 
scrites sur la languette co 
rrespondentaux chiffres de 
0 a 9 et a" 

540 PRINT "ceux-ci de 1 a 5 
en appuyantsimu1tanemant sur 
CTRL< Les fléchés vous 

permettent” 

550 PRINT "de vous déplacer y 
ENTER devalider votre corn 


binaison etFCTN 9 d 1 arrêter 
la partie.* J t J J J 
560 PRINT "Pour commencer y a 
ppuÿez sur une touche.“ 

570 CALL KEY(0 y KKy SS > 

580 IF SS=Û THEN 570 
590 CALL CLEAR 
600 N4="GAGNANTE !!“ 

610 P4<l)=*C'est perdu !! " 
620 P«<2>=“la combinaison " 
630 P«<3)="etait simple -! * 
640 GOTO 150 
650 RANDOMIZE 
660 F'4 ( 4 > = " " 

670 K=0 

680 FOR 1=1 TO L. 

690 T<I)“INT<( C+ 1)*RND> 

700 P4<4)=P4(4)&STR4 <T(I)) 

710 NEXT I 
720 K=K+1 
730 FOR 1=1 TO L 
740 V<I)“-1 
750 NEXT I 
760 J=0 

770 CALL HCHAR(23y 8 y 30) 

780 CALL HCHAR(24y15-INT(L/2 
)+J y 35) 

790 J=»J+1 

80 0 CALL HCHAR(24y15-INT(L/2 
>+.Jy62> 

810 CALL KEY(SyKKy SS) 

820 IF SS=0 THEN 810 
830 IF KK<>8 THEN 880 
840 CALL HCHAR(24y15-INTCL/2 
) +J y 35 ) 

850 J=J-1 

860 CALL HCHAR(24y15-INT(L/2 
>+J»62) 

870 IF J>0 THEN 810 ELSE 780 

880 IF KK<>9 THEN 900 

890 IF J<L THEN 780 ELSE 810 

900 IF KK=13 THEN 1010 

910 IF KK“15 THEN 1790 

920 KK“KK -48 

930 IF KK<10 THEN 950 

94U KK--KK-119 

950 IF KKC10 THEN 810 

960 IF KK>14 THEN 810 

970 CALL HCHAR(23y15-INT(L/2 

) +,J y Y ( KK ) ) 

980 U(J)=KK 
990 G<l<yJ)=U(J> 

1000 IF J<L. THEN 780 ELSE 81 
0 

1010 CALL HCHAR(24 y15-INT<L7 
2)+Jy 35) 

1020 FOR 1=1 TO L 
1030 IF 9(1X0 THEN 800 
1040 IF 9(1)>14 THEN 800 
1050 NEXT I 

1060 IF K=18 THEN 1110 
1070 FOR J=1 TO L 
1080 CALL HCHAR <K+S y 15-INT (l„ 
/2>+J)yYCU(J))) 

1090 NEXT J 

1100 CALL HCHAR<23y8>32^16> ' 

1110 E1=0 

1120 F1=0 

1130 GOTO 1460 

1140 CALL CLEAR 


1150 CALL HCHAR(24 y2 y27) 

1160 CALL HCHAR(24 y 3 r 35v 29> 
1170 CALL HCHAR(24 y 7 y 61) 

1180 CALL l-ICHAR (24 y 24 y 61) 
1190 CALL HCHAR(24 y 32y 38) 
1200 PRINT "eomb$ 

ïfcrib cou « COMBINAI 
BON «place® no * 

«nul bi“» 

1210 CALL HCHAR< 22 y31 y 108> 

1220 CALL HCHAR(23 y 31 y 115) 
1230 CALL HCHAR<24 y31 y34) 
1240 PRINT 

1250 CALL l-ICHAR ( 24 y 3 y35y 29 ) 
1260 CALL HCI-IAR(24y7 y87) 

1270 CALL HCHAR(24y24y 87) 
1280 CALL HCHAR(24y28y87) 
1290 FOR 1=1 TO 18) 

130 0 PRINT J TAB(2-INT(1/10 >) 
»I?"«"î 
1310 NEXT I 
1320 PRINT 

1330 CALL 9CHAR(2 y 2 y 36 y 22) 
1340 CALL, 9CHAR ( 2 y 32 y 36 y 22) 
1350 CALL l-ICMAR( 5y 2y 63) 

1360 CALL HCHAR(5v32y64) 

1370 CALL 9CHAR(6y24y36y 18) 
1380 CALL 9CHAR(6y28y36y 13) 
1390 CALL HCHAR(24y2y59) 

14 0 0 CALL HCHAR(24v 3 y 35 y 29> 

1410 C AU.. HCHAR ( 24 y 32 y 60 ) 

142i) CALL HCHAR < 24 y 7 r 62 ) 

1430 CALL HCHAR(24 y 24,62) 

144 0 CALL HCHAR(24 v 28 y 62 > 

1450 GOTO 650 

1460 FOR 1=1 TO L 

1470 IF Td)OV(I) THEN 1510 

1480 EXE 1 + 1 

1490 T(I)“T(I)+.5 

1500 9<!>=9<I)+,1 

1510 NEXT I 

1520 II- E1=L THEN 1670 

1530 FOR 1=1 TO L 

.1.540 FOR J=1 TO L 

1550 II- V(I)OT<*J) THEN 1590 

1560 FXF1 + 1 

1570 T < J >“T < U) + •5 

1580 GOTO 1600 

1590 NEXT J 

1600 NEXT I 

1610 E(K >=E1 

1620 F(K)=F1 

1630 FOR 1=1 TO L 

1640 9<IXINT<9<D > 

1650 T(I)“INT< T(I)) 

1660 NEXT I 

1670 IF F(K)>10 THEN 1700 
1680 CALL HCHAR(5+K y 26 y38+F( 
K) > 

1690 GOTO 1720 
1700 CALL HCI-IAR (5+K y 25 y 49) 
1710 CALL HCHAR(5+Ky26y38+F( 
K) ) 

1720 IF Ei>10 THEN 1750 
1730 CALL HCHAR<5+Kr20 y48+E1 
> 

1740 GOTO 1770 

1750 CALL HCHAR(5+Ky29y49) 

1760 CALL HCHAR(5+Ky 30 y 38+E1 

i 
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1.77 0 
1760 
1790 
1600 
1610 
SEG# 
1820 
1830 


IF El-L THEN 1900 

1840 FOR 1=1 TP L. 

1.910 CALL HCHAR<4» 1.0+1, ASC CS 

IF KO 18 THEN 720 

1850 CALL HCHAR< 9,15-INT(L/2 

EGMN$,I,1>>) 

FOR 1=1 TO 3 

>+I» Y<T<I))) 

1920 NEXT I 

FOR J=1 TO 15 

1860 NEXT I 

1.930 CALL KEY< 0 ,KK,SS) 

CALL HCHAR< 5+1» 8+Jv ASC< 

1870 CALL l-ICHAR< 9,23» 32) 

1.940 IF SS=0 THEN 1.930 ELSE 

CP*<I),J,1>)> 

1880 CALL HCHAR<10,9,32,15) 

1140 

NEXT J 

1890 GOTO 1930 


NEXT I 

.1.90 0 FOR 1=1 TO 1.1. 

■ 



LUDICOURB 


Une idée originale qui se situe 

entre les programmes d'assistance graphique et les logiciels de jeu. 
Si vous avez un esprit de dessinateur 
et si vous aimez vous distraire, ce petit programme 
est fait pour vous. 


BUT DU JEU 


A l'aide des divers éléments proposés. 



tentez de réaliser vos cadres de jeux, et 
amusez-vous à simuler le travail d’un gra¬ 
phiste de renom. 


AU CLAVIER 


- Faites RUN et entrez vos valeurs. 


2 ' Programme de trace de co 
orbes III 
10 CALL CLEAR 
12 CALL SCRÊENC2) 

H OPTION base: 1 

16 FOR 1=1 TO 16 

17 CALL COi-OR<I»16»1> 

18 NEXT I 

100 CALL HCHAE<1,2,31,767) 
■110 031 
120 DIM T<8»8) 

130 INPUT "Valeur minimale d 
i e X ? '5 XMIN 

140 INPUT "Valeur maximale d 

e X ? "5 XMAX 

150 HX-- < XMAX-XMIN ) 731 

155 HX8=HX/8 

160 INPUT "Valeur minimale d 
e Y ? "J YMIN 

170 INPUT "Valeur maximale d 
e Y ? "JYMIN 
; 180 HY*< YMAX-YMIN)/23 
; 181 HY8-HY/8 

182 CALL CLEAR 

183 CALL HCHAR ( 1. ,2 ,31, 767 ) 

184 IF YMIN>“0 THEN 194 
186 IF YMAXO-O THEN 194 
188 YC-=INT < 1 -YMIN/H Y > 

190 YP»INT(1-<YMIN+<YC-1)*HY 
>/MY8> 

192 GOTO 198 
194 Y0=1 
196 YP~I. 

198 IF XMIN>«=0 THEN 208 
200 IF XMAXOO THEN 208 

i-- 


202 XO'INTC2-XMIN/HX> 

204 XP*INT < 1 - < XMIN+ < XC-2 > *HX 
)/HX8) 

206 GOTO 212 

200 XC»2 

210 XP-1 

212 YPAX«YP 

214 GOSUB 4100 

218 GOSUB 3000 

220 CALL VCHAR <1,XC,C * 24 > 

222 XPAX«XP 

224 GOSUB 420.0 

228 GOSUB 3000 

230 CALL HCHAR(25-YC, 2 ,C,31 ) 

232 GOSUB 4300 

240 GOSUB 3000 

244 CALL HCHAR( 25- YC, XG » C) 

246 X==XMIN 

248 FOR XC=2 TO 32 

250 XR==X 

260 GOSUB 1000 

270 IF Y>YMAX THEN 550 

280 IF YCYMIN THEN 550 

290 YR==Y 

300 YOINT ( < YR-YMIN ) /HY+1 ) 

320 XK==XR 

325 YK“YC 

330 GOSUB 2000 

350 X--XR+HX 

360 GOSUB 1000 

362 IF Y>YMAX THEN 560 

363 IF Y<YMIN THEN 560 

37 0 YS-INT< < Y-YMIN>/HY+1>. 

390 IF YS-YCC0 TI-IEN 415 
40 0 PAS==1 


410 GOTO 425 
415 PAS«-1 

425 IF ABSCYS-YCK1 THEN 560 
427 XK«XR 

430 FOR I-YC+PA8 TO YS STEP 
PAS 

455 YK-'I 

460 GOSUB 2000 

480 NEXT I 

550 X-XR+HX 

560 NEXT XC 

570 CALL KEY ( 0, K, S > 

580 IF 8«0 THEN 570 
590 END 
1000 Y=X 
1010 RETIJRN. 

2000 X»XK 

2030 FOR XP»i TO 8 

2040 X-X~HX8/2 

2050 GOSUB 1000 

2060 YP1==INT< < Y--< YK--1 )*HY~YM 

IN>/HY8+1> 

2110 X=X+HX8 

2120 GOSUB 1000 

2130 YP2»INT<< Y-< YK—1)*HY-YM 

IN>/HYB+1> 

2140 IF YP2<YP1 THEN 2205 

2144 IF YP1»8 THEN 2250 

2145 IF YP2CI THEN 2250 
2150 PAP»1 

2160 IF YP2<=8 THEN 2180 
2170 YP2=8 

2180 IF YP1>-1 THEN 2220 
2190 YP:l,=l 
2200 GOTO 2220 























2205 IF YPK1 THEN 2250 

2901 IF BSO’OOOüOOOOOOOQOOÜ 

3150 NEXT J 

2206 IF YP2>8 THEN 2250 

0” THEN 2908 

3190 CALL CHAR(C » B*) 

221-0 PAP---1 

2903 C=C-1 

3200 FOR J=1 TO 8 

2211 IF YP2>=1 THEN 2213 

2905 RETURN 

3210 FOR K=1 TO B 

-2212 YP2-1 

2908 CALL HÇHAR<25-YK,XC,C> 

3220 T(JvK>=0 

2213 IF YP1<=8 THEN 2220 

2910 RETURN 

3230 NEXT K 

221-T YP1—8 

30 0 0 B4= * * 

32T0 NEXT «J 

2220 FOR YP=YP1 TO YP2 STEP 

3010 C=C+1 

3250 RETURN 

F'AP 

3020 IF C=160 THEN 570 

T10 0 FOR IAX=1 TO 8 

2230 T(9-YP»XP) = :L 

3030 FOR J=1 TO 8 

4110 T ( 9--IAX r YI-'AX ) =1 

22T0 NEXT YP 

3ÛT0 Bl=8*T(J»l)+^*T(Jf2)+2* 

4120 NEXT IAX 

2250 X=X+HX8/2 

T< J»3>+T<J,T> 

Tl30 RETURN 

2260 NEXT XP 

3050 B2=8*T<J»5)+T*T(Jr6>+2* 

420 0 FOR IAX=1 TO 8 

2830 CALL GCHAR<25-YK»XCrCX> 

T ( J » 7 ) +T ( J » 8 ) 

4210 T ( 9--XPAX * IAX)—1 

2.8 T 0 IF CX—31 THEN 2900 

3060 IF Bl>9 THEN 3090 

4220 NEXT IAX 

2850 IF CX<3T THEN 2860 

3070 B1=B1+T8 

T230 RETURN 

2852 G OS IJ B T30 0 

3080 GOTO 3100 

4300 FOR T.AX:=1 TO 8 

2853 GOTO 2900 

3090 B1=81+55 

4310 T ( 9--IAX v YPAX ) ~1 

2860 IF CX<33 THEN 2880- 

3100 IF B2>9 THEN 3130 

4320 T(9-XPAX »IAX)=1 

2870 GOSIJI3 •'*20 0 

3110 B2=B2+T8 

4330 NEXT IAX 

2875 GOTO 2900 

3120 GOTO 31-10 

4340 RETURN 

2880 GOQUB -010 0 

3130 B2=B2+55 


2900 GOSUB 3000 

3 J. T 0 B$=B$&CHR*<B11&CHR$(B2) 

■ 


*sg£ RACING Z 


Si vous aimez la vitesse 
et les circuits automobiles, vous voilà servi. 

Vos adversaires, nombreux, 
manquent absolument de «fair-play», vous le 
découvrirez à vos dépens. 



Parcourir le plus de distance possible, en prises désagréables que vous réserve ce . Faites RUN et pilotez 
surveillant les réactions brutales des circuit diabolique. - 


100 

RANDOMIZE 


110 

CALL CLEAR 

les 2 fleeh 

120 

PRINT 

■ CIRCUIT DE VOITURE"JÈ î * "Vous vous déplacerez avec 

es. 

♦ ♦ ♦ 

♦ 4 ♦ 



130 

PRINT 

"Enter arrête le jeu et donneles points."ît: 


ITO 

CALL CI-IAR < 136 r " 387C3838387C1 ■ ) 


150 

CALL C 

HAR<129»“387C3838387C1“) 


160 

CALL CHAR<124r"1818181818181818") 


170 

INPUT 

“Couleur de l'écran ? "5CE 


180 

INPUT 

"Couleur de la piste . ? * ÎCP 


190 

INPUT 

"Couleur de la voiture ? “SCV 


200 

INPUT 

"Quel niveau de difficulté voulez-vous ? "ÎN 


210 

INPUT 

"Quelle largeur de piste voulez-vous ? 'SL 


220 

E$=‘!" 



230 

FOR I- 

1 TO L. 


240 

E*=E$&CI-IR*C127> 


250 

NEXT I 



260 

E*«E*& 

■i j <> 

. 


170 

























270 GAU... CLEAR 

530 CALL SOUND(500*262 * 0 * 33 0 * 5* 392 * 5) 

280 M==N/2--N/25 

.540 A=32 

290 CALI... 8CRËEN < CE ) 

550 GOTO 600 

300 CALL COL.DR(.1.2*1 .CP) 

56 0 CALL HCHAR(13 *I+Q* A) 

3 II. 0 CALL.. COL-OR ( 13 * CV * CP ) 

570 PRINT TAB(J>;Eil> 

320 CALL COI...OR < 14 ,* CV * 1 ) 

580 CALL HCHAR(13*1*129) 

330 L«26-L 

590 A===127 

340 J=L/2 

600 0=0 

350 FOR 1=1. TO 12 

610 CALL KEY(3 *K * 8) 

360 PR INT TAI3C.J ) *E$ 

620 IF 8=0 TI-IEN 430 

370 NEXT I 

630 IF K==68 THEN 690 

380 1=16 

640.JLF . Kir83 .THEN 66(L 

390 A=127 

650 IF K=13 TI-IEN 720 ELSE 430 

400 P1»0 

660 1=1-~l 

410 P2«0 

670 0=1 

420 0=0 

680 GOTO 430 

430 iJ=J+N*RNI>--M 

690 1=1+1 

440 IF J<L THEN 460 

70 0 Ü=--l 

450 J*J-M 

710 GOTO 430 

460 P1=P1+1 

720 GAU... CLEAR 

470 CALL GCHAR(14 * I* X) 

730 CALL COL-OR ( 12 * 2 * GE ) 

480 IF X--127 THEN 560 

740 PRINT "Vau* avez fait"fp£t"fautes" 

490 &Z-P2+1 

!"sur".PIS"coups* soit"5100-INT 

500 CALL MCHAR<13 *I+û* A) 

<P2*:1.0 0/P1 > * “points" iiii 

510 PRINT TAB(J>JE* 

750 GOTO 200 

52 0 CALL HCHAR < 13 * I * 136 ) 



■ 


DUEL 


Suivre la guerre des Malouines 
à la télévision c'est bien,mais la vivre c'est pire. 
Mercenaire, vous choisissez votre camp 
et que le meilleur gagne... 


BUT DU JEU 



viter tous les dangers propres à un vol 
insi que tous ceux qui caractérisent un 
nflit aérien digne de ce nom, entre 
utre, les missiles Exocet, les mines vo¬ 


lantes, le relief accidenté... Vous aurez 
bien mérité votre solde. 


AU CLAVIER 


- L'appareil Anglais monte à l'aide de la 
touche «P». 


- Il descend avec la touche «.». 

- Il largue ses mines avec la touche «L». 

- L'appareil Argentin fait de même avec 
les touches «Z», «S», et «X». 


1 CLERR, , 20 = X=0= Y=10 1 N=38 =. M=Y 

5 DEFGR*< 2 >=63,1,57 ; 125 .■ 235 .• 255, 9 > 63 ■ DEFGRtt 3 >=248 ..0,0,1,227, 255,3,129- DEFGRX 0 > 
=31,128,192,240,63,7,1,7=DEFGRSC1>=252,128,116,190,255,235,32,243 
10 CL3 = 3CREEN0,4,0 = F=6 

20 FOR 1=8 TO 18 = LOCRTE0,1,1= C0L0R6,6 = PRINT" 

" = NÈXTI * C0L0R4, 4 = LOCRTE0, 19, 1 = PR I NT ” RRHflflflflRflRRRflRRRRRRflflflRflRRRRflflflflRflflflflRR 
" =COI.OR0,F 

25 FORR=1TO130 = T=RND = NEXTfl 

30 Z=10 = FORR=30 TO 280 = Z=Z+1HT<RHD*7 >-3=IFZ< 0THENZ=0 
32 LINE<fl,151>-CR,131-Z > = NEXTfl 

30 H1=0 = H2=0 = fl$=INKEYÏ = IFfl$="P"RNDY>l THENH2=-1 
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52 IFR*="."THENH2=1 

53 IFR*="Z"RND M>1 THENH 1 — 1 

54 I Ffl*="X"THENH1 = 1 

56 IFR*="3"THENL0CRTEX.Y+1.1 =C0L0R5.F=PRINT"#" 

58 I FR*= " L " THENLOCRTEN.M+1.1= C0L0R5, F = PR I NT " # ” 

60 LOCRTEN.M. 1 'PR INT" " : LOCRTEX j Y.1 1 PRINT" " ' Y-Y+Hl ' M-M+H2 « X-X+l « IFX>38THENX=2 

62 N=N-1=IFN<1THEN N=38 

65 T1 =SCREEN< X+1.Y)= T2=SCREEN( N. M > 1 1F Y-n RND RBSCX-NX2 THEN 200 

66 IFT1O32THEN200EL8E IFT2<>32THEN210 

70 LOCRTEX. Y.. 1 ! COLOR1.F = PRINTGR*( 0 >i GR*< 1 ) : LOCRTEN.M. 1 ' COLOR0.F'PRINTGR*< 2 )> GR*( 

3> 

99 GOTO50 

200 LOCRTEX-1 .• Y. 1 = GOTO220 
210 LOCHTEN-l.M. 1 

220 COLOR 1.2'PRINT"BOUM" 1 L0CRTE5.11.1=1NPUT"UNE RUTRE PARTIE " R* ! IFR*-"O" THEN 
1ELSEEND i 


# TOURS INFERNALES 

Appel à pilote de A423. 

Rendez-vous d'urgence dans la cité nucléaire Altacit. 
aux mains de l'ennemi. 



Privilégiez donc les petits blocs sur les- - Aller à gauche à l'aide de «J». 
quels vous pourrez vous approvisionner. - Aller à droite à l'aide de «L». 
Éviter les grands réfrigérants atmosphé- I AU CLAVIER 

riques sur lesquels vos ennemis ont ins- I---J 

tallé leur système de défense anti aérien. - Changer d'altitude avec «Q» et «W». - 


1 SCREEN2.2.2 = CLERR..18 = CLS 
10 E=200 = X=20 = N=0 = H*="HAUTE"« K-b 

35 DEFGR*< 0 >=28.8.8.127.62.28.8.8'DEFGR*<1>=255.255.255.255.255.255.255.255 «DEFG 
R*<2 >=224.224.224.224.224.224.224.224 

40 DEFGRSC3 >=224.224.224.224.224.224.224.224 = DEFGRSC4 >=224.224.224.224.224.224.2 
24.224= GOTO90 

50 N=0 = A*= INKEY* = IFR*="J"RHDX> 1THENN—2 

55 LOCRTE2.0.1 = C0L0R5.2 = PR INT "ALTITUDE = " > H* i " ENERGIE « ".'Ei" "=C0L0R2.2 

60 IFA*="L"RNDX<38THENN-2 
70 IFA*="Z”THENH*'= "HAUTE"= E=E-20 
80 IFR*="X"THENH*-"BASSE"= E=E-20 

90 LOCRTEX.9.1=PRINT...IFH*="BRSSE"THENGOTO250 

95 LOCRTEX.10.1=COLOR1.2 = PRINTGR*< 0 > = C0L0R2.2 
100 GOSUB200 = E=E-1 = IFE<0THEN300 

199 GOTO50 

200 T=INT<RND*8 >+1 = IFT>3THENL0CRTE1.24.1=C0L0R2.2 = PRINT = RETURN 

210 P=INTCRND»#30>+5=IFT=1THENLOCRTEP.23.1=C0L0R7.7 = PRINT"RR "i = C0L0R7.0 = PRINTGRSC 
2>=C0L0R2.2=PRINT=RETURN 

220 LOCRTEP. 23. 1 » C0L0R7.0 = PRINTCHRSÇ 127 CHRSC 127 >.î GR*C 3 >,. = COLOR0. 2 = PRINTGRWC 4 > ' 
C0L0R2.2 = PRINT = RETURN 

250 T=SCREEN(X.10 > =IFT=32ORT=0THENGOTO95 
260 IFT=127THENGOTO300 
270 BEEP = E=E+20 = G0T095 

300 FORR=0TO7 = LOCRTEX.10.1= COLORA.2 = PRINTGR*C0 > = FORI = 1TG60 = NEXTI= NEXTR 
310 FORA-1TO400=NEXTR 

320 CLS'SCREEN6.0 = L0CRTE5.10 = PRINT"VOUS AVEZ PARCOURUT ";K>" KM" 

330 PPINT = PRINT = PRINT = PRINT =INPUT" UNE RUTRE PARTIE "•R* =IFR*="0"THEN1 
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BOUPY 


Il s'appelle Boupy et son seul plaisir 
consiste à parcourir les écrans de télévision 
à la recherche de pastilles nutritives. 

. Aidez-le à échapper aux monstres 
qui le poursuivent. 



BUT DU JEU 


AU CLAVIER 


Attrapez les éléments de couleur dessimi- - Pour aller à gauche appuver sur la 
nés sur I écran tout en fuyant les divers touche : «J». 

monstres qui vous harcèlent. - Pour aller à droite appuyer sur la touche : 


- Pour aller en haut appuyer sur la touche : 
«W». 

- Pour aller en bas appuyer sur la touche : 

«X». 

- En cas de force majeure appuyer sur la 
touche : «K». 


1 X®INT<RND*39 >+ 1 > Y® INT< RND*19)+1 


1 CLS ■■ SCREEN1,0,0 : CLERR,, 20 1 S*0 • X*20 ! Y»11 = N«*0 •• M=N « XM®5 ' YM=2 

5 DEFGR*< 1 ?®60 .■ 126, 219,152,253,189,193,126 ■ DEFGRS< 2 >=60,126,219,189,235,193,189, 
255 >DEFGR*< 3 >=60,24,60,126,126,126,60,24 

20 COLOR1,1 1 FORR=0TO40 1 LQCHTER,0,1=PRIHTCHR*<127><LOCRTER, 22>PRINTCHRfK 127>’NEXT 

H 

30 F0RR*1T021 ; LOCHTE0,R,1=PRINTCHR*<127> 1 LOCRTE40,R,1’PRINTCHR*<127> = NEXTfl 
40 C0L0R4,01FORR®1T023+1HT< RND*20 ) •LOCRTEINTCRND*39 >+1,<RND*21 H1,1•PRINT"*" i NEX 
TR : C0L0R2,0 

30 R*-INKEYf ■ IFA*="J ,, THEN N*-1'M*0 
53 IFR#="K"THENLOCHTEX,Y,1 : PRINT" 1 

55 IFfl#="L"THEN N=1’M=0 

56 IFR$="Z"THENM=-1<N=0' 

58 IFfl®= "X"THEN M=1'N=0 

60 LOCRTEX, Y, 1 < PRINT" " ' LOCRTEXM, YM, 1 : PR INT" " < X=X+N > Y®Y+M • C*SCREEN< X, Y > ■' IF P® 12 
7 OR 0=42 THEN 200 ELSE S=3+l = LOCRTE 14, 22, X ■ C0L0R6, 1 ■ PRINT"SCORE » " J S 

65 IFC=0THEN 3=3+100 1 PLRY"DO" 

66 IF RND>.95 THEN LOCRTE ( RND*38)+l, ( RND*19>+l,1•C0L0R6,0>PRINTGR*<3> 

70 LOCRTEX, Y, 1 • C0L0R3, 0 s PRINTGRfC 1 ? * GOSUB100 ■ LOCRTEXM, YM, 1 : C0L0R2,0 = PRINTGR5K 2 ) > 

IF X=XM RND Y*YM THEN200 ELSE 50 

100 JF RND>.7THENRETURN 

103 IF X>XM THEN XM«XM+1>GPT0 120 

110 IF X<XM THEN XM-XM-1«RETURN 

120 IF Y<YM THEN YM»YM-1>RETURN 

130 IF YM<Y THEN YM=YM+1■RETURN 

140 RETURN 

200 PLRY"DOREMIFRSOLRSIDO" *■ LOCRTE 10,23 = INPLJT"UNE AUTRE PRPTIE " : R* : IF R$= M ri" TH 
EN1 ELSE END 




















«a PARCOURS 


Votre chenille ne demande 
qu'à grandir. Malheureusement pour elle 
et pour vous, le programmeur a tout fait 
pour l'en empêcher. 




ceinte du décor qui changera à chaque - Montez à l'aide de -Z». 


- Descendez à l'aide de «X». 

- Allez à gauche avec «J». 

- Allez à droite avec «L». 


1 CLS=SCREEN1,0,0 = CLERR,,20 = S=0 = X=2B = Y=11= N=1=N=0 = XM=5 = YM=2 = D=1=B=0 
5 DEFGR5K1>*24,60,126,253,255,126,60,24 
10 G0SUB20 = G0TQ45 

20 CÜLGRl, 1 =FQRR=0TO40=LOCflTER,0, 1 = PRINTCHRï 1 ' 127 > = L0CRTER, 22 = PRINTCHR*< 127>=NEXT 
R 

70 FQPfl=1T021= LOCRTE0,R,1=PRINTCHRÏC127> = LOCRTE40,R,1 =PRINTCHR*<127>=NEXTfl 
40 C0L0R4,0 « FORR= 1TO50+1NT< RND*20 > = LOCflTE I NT< RNDK38 >+1, < RND*20 >+1,1 = PR I NT 1 ' # " ' NEX 
TR = C0L0R2,0 = RETURN 

45 LOCRTEX,Y,1=C0L0R3,0 = PRINT.BEEP = LOCRTEX, Y ■ 1 =PPINTGR*C1> 

46 R$=IHKEY$ = IF fi**"" THEN45 ELSE 51 

50 fi**INKEYS 

51 IFfl*=".J"THEN N*-1*11*0 

55 IFR*="L"THEN N*1'M*0 

56 IFfl$="Z"THENM=-1= N=0 
58 IFR$="X"THEH M=1-=N“0 

60 X=X+N = Y«Y+M = C=SCREEN< X,Y > =IF C=127 OR C=35 OR C=0 0RC=79 THEN 200 ELSE S*S+1 = 
LOCflTE14,22,1=C0L0R6,1■PRINT"SCORE =" ; S 

63 IF =rS/100>==IHT<S/100> THEN PLRY"FRSOLRSIFRSO" = CLS'• SCREEN 1,0,0<GGSUB20 
66 IF RHD>.95 THEN LOCflTE <RND#33>+l,CRND*19>+l,1=C0L0R4,0 = PRINT"#" 

70 LOCRTEX,Y,1=C0L0R3,0>PRINTGRÏC1> = GOTO50 

200 PLRY"DORENIFRSOLRSIDO" = LOCflTE 10,23 = INPUT”UNE AUTRE PARTIE , '.= R$=IF R*="0" TH 
EN1 ELSE END _! 


fl NUCLEAR 


Lorsque le temps devient un ennemi 
et que les évènements jouent contre vous, vous restez seul 
contre tous avec, comme seuls alliés,votre ruse 
et votre rapidité d'action. 

vous ne tarderez pas à découvrir. Vous 
pourrez aussi vous procurer de l'énergie 
Empêcher par tt us les moyens l'explosion (à vous de savoir comment.) 
de la centrale atomique en éliminant les 

dangers qui apparaîtront à l'écran et que ■ ■ »- •• . 

1 CLERR,,20 
5 CLS = SCREEN0,6,0 = F=6 
10 DEFGR*< 0 >*60,126,253,255,255,255,126,60 = DEFGR*<1>*189,153,126,24,24,36,36,102 
= DEFGRÏC 3 >=126,24,126,24,126,24,126,0 = DEFGRSC2>=60,60,24,255,189,189,24,126 
20 DEFGR*< 4 >=3,42,28,127,28,42,8,0 = DEFGR*< 5 >=60,126,219,255,255,219,126,60 = DEFGR 
$( 6>=0,16,64,24,153,0,68,16 = DEFGRïf7>=1,14,56,24,14,24,112,128 
30 T=1=R«0=L=2000+INT<RNDŸ2000>=E=INT<L/10> 

35 L0CRTE1,2 = CQL0R3,l'RTTRBl,1=PRINT"CENTRALE NUCLERIRE"= COLOR0,F = ATTRB0,0 
40 FORI“1TO200 = L0CRTE4,11 =PRINT"CR C0NP1ENCE DANS ",= 200-1;" SECONDES" ■ NEXTI = CLS 
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_ AU CLAVIER _ 

- Pointez à l'aide du crayon optique les élé¬ 
ments favorables et défavorables. 
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F 0 PRÏNTGR*?C*? ND ? : ri=INT( RND * 22 )+1 : C=INK RND * 8 : C0=IHT < 6*RND ) : LOCATEN, M, 1 : COLORCO, 

53 R=R+ T = LOCRTE0, 0 , i =CO L ORl .FORINT "MASSE CRITIQUE * "jR," SEUIL = " ; 1 " >• 

S SI: 8 .’ L0CflTE2,23,l=C0L0R5,F'PRINT" ENERGIE - SCORE : ";s’ 

57 IFR>=L ORE<0 THEN200 

88 Ü 1 I?20=INPENX,Y ! X=INTC X/8 >•Y=INT<Y/8): IFX=N RND Y=M THEN LOCATEX,Y,1.PRIH 

i ' : IjU 10100 , 

65 NEXTB'IFC >3THENT=T+C«GDTO30 
70 IFRND>.4THENLÜCATEN,M,1>PRINT" " 

80 GOTO50 

100 BEEP- IFC<3THENT=T+10 = GOTO50 
105 I FC=3THENE=>E+30 ■ GOTO50 

110 S®S+C* 100 ! T=T-1NTC C/2 '> ■ I FT< 0THENT=0 : GOTO50 
120 GOTO50 

|00 d f O ri = 1TO500 ! NEX ti ^OCRT^, U, 1 . INPUT"UNE AUTRE PARTIE " >R* . IFR$="0"THEN1ELS 



VIC 20 


RAID SUR NEW-YORK 

Rejoignez au plus vite la base d'envol Titl. 
Vous êtes le dernier des kamikazes, 
sur lequel repose l'espoir du Japon. 



BUT DU JEU 


constamment de l'altitude. Vous devez ra¬ 
ser tous les grattes-ciel pour atterrir, ré- 


AU CLAVIER 


fâjFÆj'ïv d f£ ière T nis t sion Pa^r et repartir à l'assaut de nouveaux - Pour larguer une bombe, il suffit de pres- 

.onsiste a raser New York Cependant, vo- quartiers. Et ainsi mourir en héros pour la séria barre «espace» 

, c. UChé l0rs ^ de gloire de vo,re pays ' • Ce lo 9 iciel nécessite l'utilisation d'une 

attaque de Pearl-Harbour. Et vous perdez - extension 8 ou 16 Ko de mémoire vive. 


10 P0KE44,28 : PÛKE46,28 :PÛKE46,28 :POKE50,28 :P0KE43,10 :P0KE45,12 : P0KE47,12 :PÜKE49, 
12 

20 P0KE7177,0:P0KE7178,0 :P0KE7179,0 :POKE198,4:PQKE631,76:P0KE632,207 :PÜKE633,13: 
NEW 

RERDV. 

100 REM COPYRIGHT TILT MICRO 
120 RX=36864:RV=36865:52=36876 

130 EC-4096 :00=33792 ■' 08=32768 : CR=36869 : C=5120 : N0=6144:33=36877 : SN=36878 
140. IFPEEKC0>THENPOKE0,0::GOSUB5000:GOSUB5300 
158 GOSUB5200 
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200 L=L+1 ; K=-K 

210 IFK=-1THENC=18 '• E=EC+13+22*L : At=G$ : GOTO220 

215 E=EC+3+22*L : C=0 : Rf=Df 

220 FORMAITOI3 

225 IFF=1THEHM-M-1 :PÛKES3,M 

240 PRINTLEFTf<VEf,L > RIGHTfC HOf,C> A$ 

25Û E=E+K:C=C+K-1FPÈEKCE >-32THEN300 
260 G OS UE 1060 : PR I NT " s**#»*:!" ; SC 
262 IFF-1THEHM-M-1 :P0KES3,M 
265 ÜOSUE1000 : PR I NT " »»»|pni" ; SC 
270 IFE-PL.THEH600 

2S0 HEXT : PRINTLEFTf<VEf,L > LEFTf < HOf,C-K>Of : GOT0200 

308 F'OKEE-K, 42 = POKEE-K+CO, 2 

310 FORJ-0T012STEP.6 

320 ZX= 12+1 NT C SIN < J*ff > > : POKERX, ZX 

330 ZV=38+1NT C COS( J#ir*2> *3> : POKERV.• ZV 

335 P0KES3 .■ 15*ZX+ZV 

360 NEXT : POKERX, 1 2 ■ POKERV, 38 : P0KES3,0 

365 FORTT=1TÜ30O■NEXT 

370 C=C-1: IFK=-1THENC=C+5 

380 E=E-4*K+22 : L0=L-1 : Ff=F1f:GOSUB500 

390 E=E+K ^ Ff-F2f : GOSUB500 

400 E-E+K:Ff~F3f•GOSUB500 

410 E=E+K ' Ff-'F4f : GOSUB500 : P0KES2,0 

420 IFSOHITHENHI =SC 

430 PRINT".€PM«JNE AUTRE PART IE C 0/N >?" 

440. GETIf : IFIf=""THEN440 

450 IF If= "0 "THENSC=0 : H=0 •' GOTO 150 

460 IFI$=" N" THENPOKECfl, 192 : POKEG, 76 : P0KE36879,27 : PRI NT" 71" i ■ END 

470 GOTO440 

500 W=E : L-L0:1*1=250 

505 P0KES2,M:M=M-5: IFPEEK<M>=32THEN510 

507 C=C+K : P0KES2 .■ 0 : FORM*200TO 127STEP-. 5 : PGKES3 .• M : NEXT : RETURN 
510 PRINTLEFTf <VEf, DLEFT.f <HOf .■ OOFfFf ' P0KES2, M : M=M-5 
520 L=L+1 • N--W+22 : GOTO505 

600 P0KES3,@^ FORI=PL-5T0PL-9STEP-1■GO3UB700 ; NEXT 

605 PR I NT " ?®!»!»>liBRAVO ! , PASSONS" : PR I HT " fl*»TU QUART 1ER SU I VAUT " 

607 FORI“PL-8TOPL-3 : GOSUE700 : NEXT 
618 P0KES3,128 : FORI=LT04STEP-1 
620 PRINTLEFTf<VEf,1 + 1> LEFTf C HOf,C >" 

630 PRINTLEFTf CVEf,1-1>LEFTf <HOf,C)Af 
640'FORTT=1TO200:NEXT:NEXT■GOTO150 

700 PÛKEI■148 : POKECO+I,7 : POKEI-1,32 : POKE1+1,32:FORM=128TO250 : P0KES2,M : NEHT 

710 POKE1,149 :F0RM-250T0126STEP-1 :P0KES2,M:NEXT:RETURN 

1000 GETIf : IFF=0THENIFI$=" "THEHM=253:P0KES3,M : GOTO1050 

1010 IFFTHEN1100 

1028 F0RTT=1T035:NEXT:RETURN 

1050 F=1'B-E-3#K : S=0 

1100 M=M-1 : P0KES3, M ' POKEB, 32 : B=B+22 •' BP=PEEK < B > 

1105 IFBF-32THENP0KEB,BO : POKECO+B,4’M-M-1 : P0KES3,M:RETURN 
1110 IFBP=102THENF=ü : P0KES3,Q:RETURN 
1115 S=S+1 : SC=SC+1 : POKEB, BO '• POKECO+B, 4 

1120 I FS=B ITHENPOKEB, 1 46 : POKECO+B, 2 : F=0 '• POKE 198,0 : P0KES3, Q : RETURN 
1130 RETURN 

5000 PRINT"rîf:#RAID SUR NEW-YORK*#" 

5O20 PRINT"WWW VEUILLEZ PATIENTER" 

5030 FORI-GTON0-1 :POKEI,PEEK < GÛ-G+1> : NEXT 
"5040“RERUA : IFA=-1THEHRETURN . 

5050 POKEI,A : IaI +1 :GÜTO504Ô 

5060 DATA240,24©,123,63,255,255,255,31,0,0,224,192,131,12,252,255 

5070 DATA®,0,0,7,206,62,28,255,,,,,,16,56,184 

5080 DATA63,127,126,125,59,7,15,15,1,125,251,247,239,217,128,0 

5090 DRTA255,255,255,254,254,128,@,0,£48,208,144,56,56,56,16,0 

5100 DATA,,,,,8,28,29,,,,224,115,124,56,255 

5110 DATA,,7,3,193,48,63,255,15,15,222,252,254,255,£55,248 

5120 DATA31.il. 9,28,28,28,8,0,255,255,255,127,127,1,0,© 

5130 DATAî 36 190,223,239,247,155,1,8,252,£54,126,190,220,224,240,240 
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^200 
5205 


5146 
5150 
51&3 
52 
5 

5210 

5228 

5230 

5232 

cr-I>C;0 

5225 

5240 

5250 

5255 

5256 
5260 
5270 
5280 
5370 
6000.. 

REiiHV 


Bm H62,28,8,62,62,29,28,8,255,145,145,255,255,145.145•145 
BHTR64,128,136,288,234,145,145,255,6,16,16,16,56-124-254*?5^ 

BRI fl188,153,255,24,60,60,36,102,68,24,255,153,189 - 60.86,] m '-1 
îf;"?, 1 0BC.?■■■■■ H 3BEF0" :G#*"SPWIJKB StÜllIHLMHO" " : BO=144 : PPINT"^" 

F 1 $= $miD" : F2.$= " SPWME" : F3$=" imMF " : F4$= " flOTH)" : 0F$=" ■ '«Il üll" 

roïuTnr VÜiSi V /EfS! " : HO$=" 
f r i NTVEt" Si rnmmmmmmmmmmmmm'' ; : f^fcr • 205 : n$»" 

ÎfH0>15THENH0=15° KERX;20 : H=H+2 : P0s4S38 : ^1=21015 : H0=IMT< 11*RND< 1 > ) +H 
FORJa0TOH0 

R--R-1 : POKERV, fl : I Ffl=3 8 T H E N fl=3 9 

PQKEP0+1-22*J,145 :POKEC0+P0+î-22*J,0 : HEKT 

PUKEP8+1-22*J, 147 • POKECO+P0+1-22*J, 6 : NEKT : L* J • K*~ 1 : f~ 0 : p| *P0+1 p p Œ i » • n r 

POKERV, 38 ^ FORA* 19T0 î 2STEP-1 ‘ " 1 L ' U 1 v U 1 Ll 1 "*> 

PÛKERX,fl : FORTT«1T0250 : NEKT■HEKT 

F'P I HT " SKÏ3CÜRË "SC ; ■ PR I HT " »t»|imiN1E I LL EUR " : HI 

POKESH,15 ; P0KES3,128 

RETURN 

GOTQ6000 

PR IHT " MWISPRÈSSER UNE TOUCHE"" ; : POKE198, © •' Ufl IT198,1 : RETURN 




LASER OMEGA 

Des vagues d'envahisseurs 
tentent de détruire la base Oméga. 

Ils deviennent de plus en plus menaçants. 
Heureusement, vous disposez du laser Oméga, 
une arme révolutionnaire 
et terriblement destructive. 



BUT DU JEU 


*ux commandes d'un vaisseau spatial 
ïuipé du nouveau canon à laser Oméga, 
, dus partez combattre les escadrilles 
ï’envahisseurs ennemis. Le laser Oméga 
6st assez particulier, car il ne laisse aucune 


trace de tir, II est donc assez difficile de le 
maîtriser, et de situer sa portée.Une seule 
indication peut vous aider, les vaisseaux 
ennemis détruits disparaissent de l'écran. 


AU CLAVIER 


les tirs sont commandés à partir du cla¬ 
vier. 

* Curseur de droite = droite 

* Curseur de gauche = gauche 

* Barre espace = tir au laser Oméga 


- Les déplacements de votre vaisseau et 


0 DIMFK22) : GO8UB300 : REH COPYRIGHT TILT MICRO 

1 F0Rfl=32768T033239 : POKEfl-25600, PEEK < fl > •' NEKTFl : P0KE56 - 30 : P0KE52, 30 

2 RESTORE : F0Rfl=7384T07415 ■' REflBB : POKEfl, B : HEKTfl 

3 Bfl-Tfla ,8,8, 28,85,93,107,65,42,42,20, 28, 8, 28,28,8,62,12 
62,255 

8 L-7679:fl=0:SC=0:GOTÜ200 

9 SS= . 6 : PRI NT "21" : F0Rfi=8164T08174 : POKEfl, 30 : HEKTfl 


,28,8,28,8,8,255, 


24 


10 

11 

100 

103 

104 
185 
106 
120 
121 


PÛKE36879,8 : F0Rfl=lT011 


PR I HTTflB ( 11 > ; " su I : "HI 
SS=SS-. 003 '■ F0R2-1T011 


FK fl > =L+fi:POKEfl <fl>,28 :HEKTfl:X*8124 :CS=0 
PR I HTTflB < 11); "TflB : "Tfl 

_ „ ^ IFRND<1 K.35THEHHEXTZ: GOTO125 

POKEfl<Z),32 : fl<Z)=fl<Z)+22 : IFR < Z ><8164THEH120 
P0KE8163+2,29: F0Rfl= 1TÛ60 : NEKT : GOSUB500 : P0KE8163+Z, 30: ns»CS+1 
PRI NT " SSWHünM".; TflB ( 11 > ; " BOMBS " ; ns 
fKZ>=L+Z : NEXTZ : GOTO 125 
POKEfl<Z>,28 
HEKTZ 
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125 POKEX,32 

130 D=PEEK C. 197 > : X=X+ < D=31 > - C B=23 > : X=X+ < X=8131 >- < X=8119 > 

150 B=X-8119=1 FDOS2RNDR < B >OXTHEN160 

151 B=X-8119 ^POKER < B),42 : POKER<B >,32 : RC B)=L+B : SC=SC+1 : POKER(B >,28 : PRIHT" ; TR 
B<U); "score •• ";sc" 

160 POKEX,27 1FCS>=10THENPRIHT" SWHWRftWW" ;TRE(11);"ORME OVER" : FORR=1T04000 :HEXT: G 
OSUB300:G0T08 

180 IFSS<0THEHSC=SC+50:CS=0:TR=TR+1 : L=L+22-G0T09 

190 GOTO100 

200 IFSOHITHEHHI =SC 

205 PRIHT"«RIS«BWBPUSH /Fl/ TO BEGIN" 

210 IFPEEK <197) 039THEH210 
220 P0KE36869.' 255 : G0T09 
300 P0KE36879,25 :PQKE36869,240 
310 PR I HT " MK*## LRSER OMEGA #*#" 

320 PRIHTTRB(9); "XUUUUSE" : PRIHT"*ft*l KEVBORRIi ONLV" 

330 PRIHT")IB»iK= CURSOR BOWH" ' PRIHT">»I CURSOR RIGHT =>" 

340 PP. I HTTRB <8): " KBPRCE " 

350 RETURH 

500 P0KE36877,195 :FQRVÛ=1T015 P0KE36878,VO : HEXTVO:FORTP=1TO400 : HEXTTP 

501 P0KE36878,0 :P0KE36877,0 :RETURH 

REfiBV. I 



SCHUSS 

Vous décidez de prendre quelques jours de vacances. 
Pourquoi ne pas aller faire du ski ? 

Une aventure bien terrestre qui vous changera 
des combats intergalactiques. 



_ BUT DU JEU _ 

Premier jour de ski, vous vous élancez 
sans plus attendre sur une piste noire. 
Chaque bosse peut cacher un sapin. 


_ AU CLAVIER _ 

- Durant toute votre descente vous verrez 
défiler le temps, généré par une horloge 
en temps réel. 

- Choisissez la vitesse de descente entre 0 


et 99. 

- Les déplacements du skieur peuvent être 
réalisés à partir d'un joystick ou des cur¬ 
seurs de droite et de gauche au clavier. 

- Ce logiciel nécessite l'utilisation d'une 
extension 3 Ko RAM — super expender. 


RERDŸ. 

0 REM COPYRIGHT TILT MICRO 

1 PQKE36879,8 

2 IHPUT'TJ/QTRE VITESSE";E:PRINT"RTTENTIOH RU DEPART!" 

3 FÛRfi=1TO1000 :HEXTR 

4 pr i ht M TwmpimmmpMmMtMmm'' 

5 R=7910 

8 TI $ = "000000 11 

10 P0KE36879,190 

11 FGRB=1TÜ500 

12 PRIHTTRBC RND < 9)#20);"S»":FÛRC=1T0E ; HEXT 

13 Z=PEEK <197) = IFZ=64THEH21 

14 B=2 

15 IFZ=31THEHB=1 

16 IFZ=23THEHB=3 

17 G0TÛ22 
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39 

40 


B=STÜP<8>~2 : B=B/2 :1FBO1 ANDB<>3THENB==2 

B=fl+B-2:1FPEEK <. R > “32THEN25 

p=p+i : PûKEFl, 171 : F'OKEfl+30720, 2 : FORO1TÛ1000 : NEXT : I F.P< 10THEH25 
PüKEft y 35 E pOKEft+^07-'0 f • aCHE ''f V0TRE PRRC:0UR < VITRL ) " : PQKEfl+30720,0 : CLR : GQTG40 

PRINT"□":P0KE3SÔ79-8 : PRINT : PRINT : PRINT : PRINT : PRINT 
R= : T I /60 : fl= I HT ( 100* * < fl-1NT (fl> ) > /100 : PR I HT " VOTRE TEMPS 
PRINT"BRAVO!": IFPTHENPRINT"MAIS VOUS AVEZ EMBRASSE" 

PRINT"UNE AUTRE DESCENTE?" 

GETAT : IFAT=" "THEN36 
IFflT="0"THENRUN 
IFATO"H"THEN36 
END 

RESTQRE : P0KE36878, 10 : FORfl=lTQl 1 : REABB, C ■ PÜKE36875, C 


EST : ": PRINTT1$;fl 
P;"ARBRES" 


W 


LABYRINTHE 


Partant à la recherche d'un fabuleux trésor, 
vous vous trouvez enfermé dans un immense labyrinthe. 
Heureusement, les couloirs sont déserts et rien ni personne ne viendra 

troubler votre tranquillité. 



HIIHI- 


1$ : IFIT<>"N"ANDI$<>"0"GOTO 
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BUT DU JEU 


ous devez sortir aussi vite que possible 
du labyrinthe. Par chance, vous avez dé¬ 
couvert un coffre contenant une boussole 
ët une carte des lieux. 


- Pressez une touche pour commencer 

- Les touches permettant les déplace¬ 
ments sont les suivantes : 

" L = avance d'un pas 

* =,quart de tour à gauche 

* = quart de tour à droite 

* Fl = vue d'avion du labyrinthe 


* F3 = vue d'avion du labyrinthe avec vo¬ 
tre position 

' F5 =; vue d'avion du labyrinthe avec le 
trajet déjà effectué 

* F7 = apparition de la boussole 

* Z = dernier recours 

- Ce logiciel nécessite l'utilisation d'une 
extension de 8 ou 16 Ko de mémoire vive. 


1 REM COPYRIGHT TILT MICRO 
j 2 PR I NT " n*«#*#LABVR IN THE*** " : PR I NT 

PRINT"*8®8 VOUS CHOISISSEZ UN KLflBVRINTHÉ DE TAILLE 
PRINT-HWQUS DEVEZ EN SORTIR MAUSSI VITEQUE POSSIBLE 
PRINT"SillSFRESSER UNE TOUCHE" 

OETI$ : IFI$=""THEN6 

7 PR INT "^TOUCHES DE MANOEUVRE*" : PR INT "ni-" 

PRINT"ML-AVANCE D'UN PAS" 

PRINT"MC-QUART DE TOUR GAUCHE" 

PRINT">-QUART DE TOUR DROITE" 

PRINT"Fl-VUE D'AVION" 

PR I NT " MF3-1 DEM AVEC VOUS " : PR I NT " MF5-1 DEM AVEC TRAJET " : PR I NT " SF7-BÜIJftSOLE " 
PRINT"ME-LE DERNIER RECOURS" ” ' 

PRINT"MÏI»H8PRESSER UNE TOUCHE" 

15 CET I $ : IFI T : = " " THEN15 
46 P0KE3S879,8 : PR I HT " ;ja|" 

50 DI MM'i < 20,20 ) : DEFFNR < K ) = I NT C K*RND < 1 > ) +1 : PR I NT " JJ" : E=256*PEEK < 648 > 

52 REABBÛT(1,2),BOTCÛ,1>,BOT<2,1), BOT<1,0> 

54 DATA"*iiiK“", "*innnr , n *mmir 

60 B0$="8i àààiiïHMl/ \" : BIT-" I 

69 GOTO90 

70 PRINT"MW»|af/OULEZ~VOUS LE MEME 
70 

75 IFITO " 0 " THEH80 

7f? TI$="000000" : T«0 : FOR 1*1 TOM-1 : FÛRJ=1TÜM-1 : IFM'iCI, J}-2THENMK < I . J ) =3 


M 

• I 


/ARIAELE <DE4X4 A20X2O > 1 










































<: 0/H ) " : IHPUT " " ; I $ = IFI $0 " N " AND I $<>■" 0 " GOTO80 


77 NEXT J,I : GÜSUB1600=GOTO1100 
80 PRIHT 11 UH NOUVEAU LABYRINTHE 

85 IFI$="H"THENEND 

90 PRINT n 3MMMM ENTREZ LA TAILLE" = PR INT" XHMDU LABYRINTHE : " : PR INT" HÜIC ENTRE 4 ET 
20 ’) " 

91 V$= " : I HPUT " »»»•*!" ; MT : M=VAL <. MT > 

92 I FM<4OP.M>20GOTO90 

95 M= I NT < M/2 ) *2 = PR I NT " XHPMUE LE CONSTRUIS, VEUILLEZ PATIENTER... 

86 pr i nt " »»»idur ant " ; ï NT<: m*m/25> ; " sec " 

100 GOSUB1320 : TI T= " 000000" -*T=0 : GOTO 1100 

120 FORI“E+45TOE+441STEP22 : POKEI,Î60 : NEXT : IFJ>1GOTO140 

130 POKEE+463,78 :POKEE+484,78 :POKEE+23,77=POKEE,77=RETURN 

140 POKEE+440,160=POKEE+44,160 : RETURN 

160 F0RI=E+65T0E+461STEP22 : POKEI, 160 : NEXT : IFJMGOTO180 

170 PQKEE+433, 77 : F'OKEE+43,73= RETURN 

180 RETURN 

220 FORI=E+114T0E+378STEP22=POKEI,225 ; NEXT : IFJ>1GÜTO240 

230 FOR I «E+400T0E+442STEP21 : POKE I73 : NEXT 

232 FORI=E+92T0E+46STEP-23:POKEI,77 :NEXT:RETURN 

240 FORI=E+377TGE+376STEP-1 :POKEI,98 :POKE1-264,226=NEXT 

241 POKEE+378,254 :POKEE+114,251-RETURN 


NEXT : IFJ>1GÜTO280 
NEXT 


260 FOR I =E+128TOE+392STEP22 : POKE-I,97 
270 FORI=E+414TOE+460STEP23:POKE1,77: 

272 FORI=E+106TOE+64STEP-21 : POKE1,78:NEXT:RETURN 

280 FORI=E+393T0E+394 : POKE1,93 : POKEI-264,226 :NEXT 

231 POKEE+392,252 :POKEE+128,236 :RETURN 

320 FORI-E+160TOE+336STEP22:POKEI,118 : NEXT : IFJ>1GOT0340 

330 POKEE+138,77 :POKEE+115,77 = POKEE+358,78 ; POKEE+379,78 :RETURN 

340 PQKEE+160,120:POKEE+159,120:POKÊE+336,121'POKEE+335,121=RETURN 

360 FORI=E+170TOE+346STEP22=POKE1,117=NEXT•IFJ>1G0T0338 

370 POKEE+148,78 = POKEE+127,78 = POKEE+368,77 = POKEE+391,77 = RETURN 

3.80 POKEE+170,120 = POKEE+171,128 = POKEE+346,121 = POKEE+347,121= RETURN 

420 FORI=E+206TOE+294STEP22 = POKE1,106 = NEXT =IFJ>1GOTO440 

430 POKEE+184,77 : POKEE+161,77 = POKEE+316,73 = POKEE+337,78 = RETURN 

440 POKEE+206,119 = POKEE+205,119 = POKEE+294,111= POKEE+293,111=RETURN 

460 FORI=E+212TOE+300STEP22 = POKE1,116 = NEXT =IFJ>1GOTO480 

470 POKEE+190,78 = POKEE+169,78 = POKEE+322,77 = POKEE+345,77 = RETURN 

480 POKEE+212,119 = PÛKEE+213,119 = POKEE+300,111= POKEE+301,111=RETURN 

520 FORI=E+229T0E+273STEP22 = POKEI,103 = NEXT = IFJ>1GOTO540 

530 POKEE+207,77 = PÜ‘KEE+295,78 = RETURN 

540 POKEE+207,100 = POKEE+295,99 = RETURN 

560 FORI=E+233T0E+277STEP22 = POKE1,101=NEXT = IFJ>1GOTO580 

570 POKEE+211,78 = POKEE+299,77 = RETURN 

530 POKEE+211,100 = POKEE+299,99 = RETURN 

620 POKEE+252,103 = IFJMGÛTÜ640 

630 POKEE+230,77 = POKEE+274,78 = RETURN 

640 POKEE+230,100 = POKEE+274,99 = RETURN 

660 POKEE+254,101 = IFJMGQTO680 

670 POKEE+232,78 = POKEE+276,77 = RETURN 

680 POKEE+232,100 = POKEE+276,99 = RETURN 

7 10 FORI=E+442TOE+460 = POKE1,160 = POKEI-396,160 = NEXT = RETURN 
730 FORI--E+379T0E+391 = POKEI, 98 = POKEI-264,226 = NEXT = RETURN 
750 FORI=E+337T0E+345 = POKE1,121= POKE1-176,120 = NEXT = REi~ 

770 FOPI=E+295T0E+299 = POKEI,111= POKE1-88,119 = NEXT = RETURN 

790 FORI=E+296T0E+298 = POKE1,99 = POKEI-38,100 = NEXT = RETURN 

810 POKEE+231,100 = POKEE+275,99 = RETURN 

330 POKEE+253,86=RETURN 

870 POKEE+253,19=RETURN 

905 CT=0. 

918 J=MX <. AI+HI *CT-B.J, AJ+DJ*CT+B I ) 

915 ONCT+1GOSUB120,220,320,420,520,620 
920 J=MX<AI+DI*CT+DJ,AJ+DJ*CT-BI) 

925 ONCT+1GOSUB160,260,360,460,560,660 
930 CT“CT+1 = J=M Y. < AI+DI *CT, A J+D J*CT ) 

934 IFJ=255GOTO870 

935 IFJMG0T0945 
940 G0T0955 

945 IFCTC6GOTO910 


180 














950 GOSUB830:RETURN 
955 ONCTG0SUB719 .■ 739, 759,779,799 .■ 819 
979 RETURN 

1919 GETI $■ G0SUB4919:1F1$ - ""GOTO1910 

fi=fiSC<: I$> : IFIf=", "THEHJ=BJ : BJ=*DI : DI=-J : GOTOl 100 
i f i*= ". "THENj-ru : ru=-rii : ni~ j : gotoi 100 
IFI"L"THENRI=fiI+DI=flJ=fiJ+DJ : GOTO1079 
IFfl=136THENGÜSUB5Ô1@: GOTO1010 
I Ffl* 134THENFL*1 :FT=@:GOSUB2010 
IFfl*135THENFL=l : FT=1:QOSUB2010 
IFfl=133THËHFL~0:FT=0:GOSUB2910 
IFI *= " Z " THENPRI NT 11 : G0T079 

GOTO1190 

IFMX< flI/flJ> =255G0TQ1210 
I FM?: C fl I, fl J > > 1T H ENM'.' C fl I, flj > ==2 • GOTO 1109 
FlI=flI-BI : flJ*flJ-IiJ : GOTO 1010 
PRINT"3":GOSUB905: GOTO1019 
PR INT "11" 

I=E+75:POKE1,87 : POREI+21,74 = POREI+22,83 : POREI+23 
PORE I +43, 233 : PORE 1+44,160 : PORE I +'45,223 
PRINT"ÏKIBiro®#i|iŒ:RflVO MON CHERI!" 

PR I NT " MBiilTEMPS TOTAL. : " ; MI Bf < TI $, 3,2 > ; 

GOTO70 

BEFFNX C >0 = 1 NT < RND C 1 > *M/4+M/5 > *2 

FOR 1 = 1 TOM-1 FORJ=lTOM-l ■ MXC I, J>=1 : NEXT : N EX T : F0RI=9T0M : MX C 0.1 > 

MX < 1,9 > =0 : MX < MI :> =0 : MX < I .■ M > =0 : NEXT : MX < 0. 1 > =255 : MX Cl . 1 
M*2 : FOR I = 1TOM- 1STEP2 ' F0RJ-1T0M-1STEP2 : W*W+1 •' X=I : V=J 
fl=0 : B=1 : IFRNI'C 1 K. 5THEHfl=l : B=9 
IFMXCI,J>=1GOTO1336 

fll=X+fl*2 •• B1=V+B#2 :1 Ffl 1 <0ORfl 1 >MORB 1 <0ORB 1 >MTH£NNEXT : NEXT : GOTO 1600 
IFMX<fl1,B1>-1THENNEXT : NEXT: GOTO1609 
MX<X+fl,V+B>*W : X=fl1 :V=B1 : MXCX,V>*W : GOSUB1550 :goto 1330 
MX cX,y >=w: fl1*X+fl#2:B1*Y+B#2:1Ffl1<@ORfl1>MORB1C0ORB1>MGOTO1342 


1020 
1030 
1040 
1042 

1943 

1944 
1045 
1946 
1050 
1070 
1075 
1080 
1100 
1210 
1220 
1230 
1240 
1245 
1250 

1320 

1321 

1322 
1324 
1326 
1328 
1330 
1332 
1334 
1336 
1338 
1348 
1342 
1344 
1346 
1348 
1559 


. 7 e : 


'RI GMT t- C TI $, 2 > 


=0 


1552 
1554 
1556 
1560 
1570 
1600 
1610 
2010 
2015 
2920 
2930 
2032 
. 2940 
2046 
4010 
4020 
4030 

4049 

4050 
5010 
5020 
5059 


IFMXC fl1,B1> = 1GOTO1348 
IFMXC Al, El '-UTHENMXCX+fl, V+B>=M '• NEXT : NEXT : GOTOl 600 
Fl=0 : B*-1 : IFRNDC1 X. 5THENfl==-1 : B=0 
IFMX<I+fl,J+B>=0THENT=fl:fl=B : B=T 
MXCI+fl,J+B> =W:NEXT:NEXT: GOTO1699 

MX C X+fl,. V+B > ~LJ : X*fll : V=E1 •' MXCX, V>-H : 0081 IB 1550 : GirrniflSF 

Hfl= : RND C1 ) : IFHAC. 25THENfl=l : B*0 : RETURN 

IFHfl'C. 5THENFl=0 : B=1 : RETURN 

IFHFK. 75THENA—1 : B=0 : RETURN 

fl=0 : B=~l:RETURN 

IFB=0THENB=FNHflC 0>: GOTO1569 

RETURN 

fl I =FNR C M > : fl J=FNR C M ) : I FMX C Fl I, fl J > C2G0T01600 
Il I =B : B J=fl : RETURN 
PR INT "T; : P0RE36879.. 14 
FORI=0TOM : FOR.J=0TOM 

fl=MXCI, J) : IFflC2THENPRINT"SU ■*'; =GOTO2040 
IFfl=2flNBFT=l THENPR I NT "Si. " : : GOTO2040 
PRINT" 

NEXT : PR I NT : NEXT : IFFLTHENPRINTLEFTî C V$, AI +1 > SPC <fl.T •• m " 

POKE198,0 : NflIT198,1 :POKE198,0 :P0KE36g?9.fl :RETIIPN 
I=E+497 

IFTI<T+69THENRETURN 

F'OKEI, 48+VALCMIIif CTI--Î, 6, 1 ) > : POKEI-1,48+VflL. < MI Bf C TI $, 5.. 1 > > POKE 1-2 ■ 5fl 
F'UKE I -3,48+VflL C MI B$ C TI $ .■ 4.. 1 > > '• POKE I -4. 48+VflL C MI B$ C TI $ . 3.1 ) '• 

T=TI:RETURN ' 

GOSUB5050 ; PRINTSPCC11 ) H rTTTX ,, BO$CBI + l, DJ+1 > : RÔRBU*1TO1000 : NEXT 

PR I NT " S" ; 1 F OF: I = 1T07 '• PR I NT SPC C 8 > " " : NEXT : RETURN 

PR I NT " * 8 " SPC C 8 ') EÔ$ : FOR 1 = 1 T 03 : PR I NT SPC < 8 > B1 $ : NEXT PR INTSPC < 8 > B2T : RETURN 


REflDV. 
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GOBBLER 

Vous n'avez pas exterminé tous les fantômes 
de notre chère planète. 

Il en reste encore quelques uns retranchés dans un labyrinthe, 

leur lieu favori de repos. 



BUT DU JEU 


Dévorez un maximum de pastilles énergé¬ 
tiques, pour ensuite affronter les fan¬ 
tômes du labyrinthe. Par chance, ceux-ci 
ne se déplacent pas, il est donc très facile 


de les anéantir. Votre temps de vie n'est 
pas inépuisable, alors faites vite. 


AU CLAVIER 


Vous déplacez votre enzyme glouton à 

l'aide d'une manette de jeu, il peut donc 


aller dans quatre directions. 

- Ce logiciel nécessite l'utilisation d’une 
extension 3 Ko RAM super expander, qui 
permet de commander le joystick dans le 
logiciel. 


II 


m OQTÜ9000'• REM COPYRIGHT TILT MICRO 

1 P0KE36879,9 : PR I HT " !*" : PR INT ". *M. 

2 priht "mmm _ 

3 PR IHT".W.PJ 

4 pr i ht " mmm .«J. ». # 

5 PR.IHT"8S. ..».*».». 

€■ pr i ht " n. m. b. m. mmm. b. mm" 

? PR IHT "B.B.Wm 

8 PRIHT"#. M.. 

9 PRIHT".»#.».*• 

10 PR I HT ". B.. W. *. • S 

11 pr iht". mm — 

12 priht "..mm . 

13 priht." . m. $.*. 

pr i ht ". m.. mm. m — mm. 
pr i ht ". ». .. m. m.. m. m. m. ;§" 
PRIHT".». . . 

priht ".mm.m 

PR INT".#.#».!. 

PRIHT n m. .B.m.BÆ. 

PRIHT". B.m . 

PRIHT"*.. Æ. 


#" 

!k H 


m u 


. #" 
s#» u 


14 

15 

16 

17 

18 

19 

20 

21 . ...- 

2 RESTORE : F0Rfi=8164T08185 : REflDB ; POKER .■ B : POKE30720+R > 2 : H EH T _ _ _ _ 

23 liflTfl 1Ü2 .• 46,46,46 .■ 102, 46 , 102 • 46.- 46 > 102 .■ 102.. 102 > 102 .■ 102, 46.. 102 > 102 .• 102 .■ 102 .■ 46 .• 1 

90 yv = 0 : uy-Q :x=8137: 08=277 ; HB=HB+1 : TI$="000000" : MB=MB+5:88=0 : RE=RE-.075 :BHK-1 

91 GOSUB8000 

100 P0KE36875/0 ,_ 4 _ 

101 GO8UB8000 : P0KE36876,0 : IFTI>10800THEHHB=0 : GOTO1 0 10 

109 B=PEEK(-197> :fl=STOP'-0> 

110 I FR=1 OR B-17THENWJi=-22 : GOT 0120 

111 IFfi=20RB=33THENWX=22 : GOT0120. 

113 I FR=40RB=31THEHWH=--1 : GOT012Q 

114 1 Ffl=80R.B=23THEHWJi= 1 : GOTO 120 

115 NK=VJi 

î 20 IFPEEK< K+WH.> 0102RHD-X+W^>=7702RHDX+WîiC=8185THENV V.=W. ' GOT0130 
125 IFPEEK<H+VK > = 102QRX+VX<7702QRX+Vîi>8185THEMVH=0 : GOT0150 

130 H=H+VH:fl=PEEK<H > 

131 I Ffl=32THÊHP0KEX-VX .• 32 : POKEX .81 : GOTO 140 

132 IFfi=87THEH1000 

133 I FR=42THEHSC=SC+90 : R=46 : P0KE36875 .• 21 y : So=T I : BR.-'.-1 
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134 IF A=46 T H E N S C=S 0 +1 @ : CS*CS-1 ' POKEX-VX32 : POKEX, 81 : P0KE36876.22? : I Fns=P»THEN 1 


1 

EHl 

146 


IFH=b5URfl®83ÛRfl~88ORfl®90THENSC=5C+10#fl •' CS=CS-1 : POKEX-VX, 32 : POKEX,81 : IFCS=0TH 
IF P.H D < 1 > >. 015 TH EN 150ERTY. 


141 fl”7702+1 HT < R H D < 1 ) *4 84} : RX=PEEK < fl > : IF AXO32ORCR=0THEN 1 50 

142 I FR HD < 1 > <. 2THEHCOS5 : GOTO 146 



REflDV 


143 IFRHD < 1 > C . 4 THEHCOB 3 : GOTO 146 

144 1 FRHD < 1 )<. 8 THENCC ® 88 : GOTO 146 

145 CC --98 

146 POKER , CC -- CS = CS +1 

15 S IFRHD ( 1 >< REORM = METHEN 100 

151 fl = 77 @ 2 + 1 NT < RHD < 1 )# 484 > : fl *= PEEI << fl ) : IFfiX ® 46 THEMCS ® C 8 - 1 : : m = m + i 

152 IFflX = 32 THENPÜKEfl ,87 
168 GOTO 100 

1000 IFTI - SS < 610 THENSC = SC +500 : M = t 1-1 : POKEX - VX ,32 : POKEX , 81 •' GOTO 100 

I 0 lü I FNE = 0 THENPR I NT " MÇlfMülBMBM ^ IÏiiiUrïIiflt'IE OVER " : P 0 KE 36878 , 0 : FORA ® 1 TO 5000 : NEXT : G 

OTÜ 9000 

1020 NB = NB -1 : POKEX , 43 : POKEX - VX , 32 : FORA ® 1 TO 1 * 000 : NEXT : POKEX .81 : GOTO 100 
! 80 G 0 PR INT " at 9 SC " ; SC ; TflB < 10 )" t " ; NB ; : fl ® T I -88 ' 

8081 IFRC 600 THENPRINT " TIME * : INT < Fl / 60 } : RETÜPN 

3005 IFBflXTHENBAX * 0 : P 0 KE 36875,237 : FORC ® 1 T 05 © : NEXT : POKE 36875■0 

8010 PÛKE3S875,0 : PRINT"TIME :"; RIGHTÎ< TI$,3):RETURN 

9008 RESTORE = GETA $ : IFSOHITHENHI =SC : INPUT "XME ILLEUR SCORE ! HKKWÜTRE PRENOM SVPMMM 
fl * fl $ 

9001 SC - 0 : NB = 2 : MB ® 25 : P 0 KE 36879,25 : PRINT " TU "' RE ®1 
0005 PRINT " GOBBLER " 

9006 PRINT : PRINT : PRINT : PRINTTflE < 9 );" USE ": PRINT : PRINT " JOVSTICK OR KEVDORD ": PPINT 
9010 PR I NTT RB < 10 ) " ffMIIC CÜ*iE " 

9015 PRIHT"WSfcWMUFUSH Fl TO BEGIN " 

9050 IFPEEK < 197 > O 39 RHDST 0 P < 0 )< 128 THEN 905 Ü 
9070 PRINT " :r ;TflB < 8 );" VALUES " 

9100 PRINT " WM * = VOU <0 PT >" 

FOOD <10 PTS )" 

VITAMIN <100 PTS ) 

MONSTER <506 PTS ) 


9110 PR INT" )#l. 
9120 PR INT "ï*If 
9130 PRINT"MMO 


19150 PRIHT-WBMIRN EXTRA HUMAIN" 
9155 P0KE36878,10 
| 9160 PRINT"»»»»FOR- EACH BÜflRD" 
9165 PR INT" WliHIGH SCORE :";HI 


,9166 PRINT"»WBV " ; fi* 


9170 FORA®1T02500 :NEXTfl : PRINT"□" : GOTO1 
10000 PR INTPEEK < 197 ) •' GOTO 10000 

13500 IFfl®65ORfl=830Rfl=88ORfl=90THEN8C®SC+10ft A :CS*CS-1 : POKEX-VX, 32 :POKEX.81 : GOTO j 4 

0 
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ZX 81 


GLOUTON 

Voilà un jeu pour les mordus du labyrinthe. 

Les gourmands ne sont pas en reste 
puisqu'ils devront ingurgiter un grand nombre de pilules 
afin d'apaiser une boulimie démente. 

Le temps fera office d'ennemi. 



BUT DU JEU 


Le jeu consiste à diriger votre glouton à 
travers les méandres d'un labyrinthe où 
vous devrez avaler le maximum de pas¬ 


tilles et ce, bien sûr, dans un minimum de 
temps. 


AU CLAVIER 


- Descendez avec «6». 

- Allez à gauche avec «5». 

- Allez à droite avec «8». 


- Montez avec *7». 


1 

5 

10 

15 

20 

25 

26 
28 
30 
35 

40 

41 

42 

43 

44 


GOSUB 2Ù0 
PEINT AT 0,0 

LET S=(PEEK 16396+25S*PEEK 16397 H1 
SO0 
S=S+67 
MRX=2380 
V= 128 
TF-0 
1000 
5, 128 


LET 
LET 
LET 
LET 
LET 
GOSUB 
POLE ; 


LET R$=INKEY$ 

LET R1=PEEK <S-1) 
LET R2=FEEK CS+1> 
LET R3=PEEK CS+33 ) 
LET R4=PEEK C S-33) 


50 

IF 

A$="5" AND 

CA1=27 

OR- 

A1=V> 

THEN 

LET 

S=S-1 

60 

IF 

A$--"8" AND 

<R2=27 

OR 

A2=V > 

THEN 

LET 

S=S+1 

78 

IF 

A$="6" AND 

C A3=27 

OR 

A3=V ;■ 

THEN 

LET 

S=S+33 

80 

IF 

A$="7" AND 

C A4-27 

OR 

R4=V > 

THEN 

LET 

S=S-33 

88 

LET U-PEEK S 







85 

IF 

|J=27 OR U-27 OR U= 

=27 

OR U=27 THEN GOSUB 2000 


90 

100 

110 

114 

115 
120 
140 
200 
210 
2?0 
230 
248 
250 

255 

256 
260 

270 

280 

500 


POKE S,139 

IF SC=MAM THEN GOTO 1500 
LET TF'=TP+1 
LET T$-STR$ TP 
PRIHT RT 19, 11T $ 

IF TF-335 THEN GOTO 2580 
GOTO 35 
CLS 

PR INT " mie 

PRIHT 
PRIHT 
PRIHT 
PRIHT 
PRIHT 
PRIHT 
PRIHT 
5 

PRIHT 


"LE JEU CONSISTE 
âLOUTOH 


T 


£ lî II — H il 


VOTRE 


"MAXIMUM 
"CECI EH 


DE 

UH 


191 out-on H 
R DIRIGER 
} POUR RVflLER LE 
PASTILLES ET 

MINIMUM DE TEMPS." 


HAUT = 7 

— \ 
y 

'APPUYEZ SUR UNE TOUCHE. 


BAS 


R 


IF INKEY$="" 
RETURH 


THEN GOTO 280 
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1000 PRINT 
1010 PRIHT 
1020 PRINT 
1030 PRINT 
1040 PRINT 
1050 PRINT 
1060 PR INT 
1030 PRINT 
1090 PRINT 
1100 PRINT 
1110 PRINT 
1120 PRINT 
1130 PRINT 
1140 PRINT 
1150 PR INT 
1160 PRINT 
1170 PRINT 






m" 


WmWM 


- '..if»., . m .. . ». if. if. „ ». il 

"B.. . I«. 1. i. m» ...rn. ». ». ». i 
" ». vêÈm ... i— m... mm. b. m.. m. s 

" if,. . . 1. »»».. . „ WWW ... ». ». » 

" mm. if... . mmm. »..■», 

" if. , „ ifiiL ». ». . ». . . ». ». if. if, É. :1 
" ». . , if.. ».. if. .. Mi 

"i.,. ». wm fe#. wm mmm. m -vb 

" ff». i... *... ».... m. »,. f 

" »..»».... ».. „. mmmmmm. m... » 

" M i WMMWM. M M ' MmW?. . ... » 

» i» MM 


st. e m P s Ki Ml ' » '' v ' M *'/- W. M ?» 


1499 

1500 
1510 
1520 
1530 
1540 
1550 
1.560 
i5?0 
1580 
2000 
2010 
2020 

2509 

2510 
2528 
3000 
3010 
3020 
3039 

j 3040 
; 9998 
9999 


BRAVO.- VOUS AVEZ REUSSI" 


m 

EETURN 
CL S 
PR INT 
PR INT 

PRINT "A MANGE 238 PASTILLES-EH ";TP 
PR INT 

PRINT "UNITES DE TEMPS..," 

FOR N=0 TO 120 
N E XT H 
GOTO 3080 
LET SC“SC+1@ 

PR INT AT 18.-11.; SC 
RETURN 

FOR N=£i TO 45 

PR I NT AT 6, 11 1 " PERDU" ; RT 6,11 ; " P erdu. " 
NE,RT' N 

PRINT AT 21,0;"UNE AUTRE PARTIE 
INPIJT 2$ 

IF 2Æv1>a"0" THEN RUN 5 
IF 2$v1>="N" THEN STOP 
GOTO 3018 
SAVE "LE GLOUTOn" 

RUN 


APPONTAGE 


Vous devez faire atterrir votre hélicoptère 
sur un porte-avion par mauvais temps. 

Aussi, accrochez-vous aux commandes de votre ZX 81 


| BUT DU JEU 

raison de votre appareil. 

- Allez à gauche à l'aide de la touche «5». 

Se poser tant bien que mal sur le pont du 

AU CLAVIER 

: Allez à droite à l'aide de la touche «8». 

porte-avion en tenant compte des vents 
latéraux violents qui pourraient bien avoir 

- Montez à l'aide de la touche «7», 

- Descendez à laide de la touche «6». 


5 

10 

CL S 

PR INT " HEL. I CO-BASE 

-Il 
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20 PRINT 
30 PRINT 

48 PR INT 'VOTRE MISSION : ESSfiYER DE VOUS " 

50 PRINT "POSER SUR LR BASE AVEC VOTRE 

f--0 RR INT "HELICOPTERE SACHANT QUE LA FORCE " 

70 PPINT "ASPIRANTE VIENT DE L""OUEST OU DE " 

80 PRINT "L""EST." 

85 PR INT 

80 PR INT " 5=GRUCHE 6=BflS 

7=HAUT 8=DR0ITE" 

95 PRINT 

96 PRINT 

97 PRINT " PRESSEZ UNE TOUCHE..." 

100 PR I NT AT 0,9 ; " Wt,e 1 i co-base ■" 

180 GOSUB 200 

148 PRIAT AT 0,9j" HELICO-BASE " 

150 GOSUB 200 

160 GOTO 100 

200 FOR N~-1 TO 5 

210 IF INKEYîO"" THEN GOTO 499- 

220 NEXT H 

230 RETURN 

499 CLERR 

500 LET L=INT <RNDY2> 

505 CLS 

510 If\=0 THEN GOTO 600 

520 PRIAT "LA FORCE VIENT DE L.""EST" 

530 LET F=1.5 
548 GOTO 700 

600 PRIAT "LA FORCE VIENT DE L""OUEST" 

610 LET F=-l.5 
700 FOR H=0 TO 100 
710 NEXT N 
728 CLS 
1000 LET R=0 
1010 LET B~16 


1090 PRIAT AT 18,0; " ■ -- 

II ‘ 


1100 PRIAT AT R, B~1 ; " " ; AT fi+l,B;" -";AT fl+2,B~l;" *”<o ".iRT fl+3 

, B" ** 

1105 PRIAT AT R+4,B;" 


1107 IF P = 16 AND B=16 THEN GOTO 2000 , 

1108 IF A-16 RND < B=12 OR B=13 OR B=14 OR B=15 OR B=19 OR B=18) THEN GOTO 8500 

1109 IF B>24 OR EK2 THEN GOTO 5000 

1110 LET B=B+UNKEY$="3" RND B<27 X INK.EY$="5" AND B>0> 

1120 LET A=fl+<INKEY$="6" )-<INKEY$="7" AND fl>Q) 

1130 PR INT RT A+l,B-l.i" 

1140 IF INT CRND*:2>=0 THEN LET B=B+F 

1999 GOTO 1090 

2000 FOR N=0 TO 040 
2010 PRIAT RT 21,5.: 

2020 NEXT N 
2030 GOTO 4000 
3000 FOR N=0 TO 20 
3010 PRIAT RT 21,3.: 

3020 NEXT H 
3030 GOTO 4000 
3506 FOR N=0 TO 30 
3510 PRIAT AT 21,3.; 

FLOTTANTE" 

3520 NEXT N 
4000 PRIAT AT 21,0; 

4010 INPIJT Z$ 

4015 LET Z$=Z*U> 

4020 IF Z$="0" THEN RUN 
4030 IF Z$="N" THEN STOP 
4040 GOTO 4010 
5000 FOR N*0 TO 30 


i ss i or, BaccoroP l i e " ; AT 21,5 ; " MISSION ACCOMPLIE " 

" ■datisll Beau..." ; RT 21,3;" DANS L ERU..." 

" User -ase Bsur ■! a fc-ase BT 1 ottante " ; AT 21,3;" ECRASE SUR LA BASE 
" UNE AUTRE FARTIE <OUI/NON> ? 
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5010 

5020 

PR INT RT 21,0: "m.A 
NEXT N 

sus fetes «asPire. .. ";flT 21,0;'* VOUS ETES ASPIRE..." 

5030 

GOTO 

4000 


9930 

SfiVE 

"HELICO-BRSe" 


9993 

RUN 


■ 



• 

ZIG-ZAG 


Pour les amateurs de courses automobiles, 
un petit jeu qui saura les ravir. 

Les réflexes et la connaissance de la piste apparaîtront 
comme un avantage certain, mais demanderont 
quelques parties d'entraînement. 


BUT DU JEU 


Faites le maximum de kilomètres sur le 
circuit en évitant les sorties de route et 



autres pièges spécialement conçus pour 
vous. 


AU CLAVIER 


- Aller à droite et à gauche à l'aide des 
touches «8» et «5-, 


3 REM "ZIG-ZRG" 


5 

LET K=6 



10 

LET fi=:L 



15 

LET B=11 



29 

LET X=INT < 

RAD*2>+l 


21 

SCROLL 



30 

PRIAT AT 20 

, A; " BT 


35 

PRIAT AT 20 

, B; " ■" 


37 

PRIAT AT 20 

, K ; "Ht" 


40 

IF X®1 AND 

A>0 THEA LET 

A=A-1 

41 

IF X«1 AND 

B>10 THEA LET 

B=B- 

42 

IF X=2 THEA 

LET A=A+1 


43 

IF X=2 THEA 

LET B-B+l 


44 

IF IMKEŸ$="' 

5" THEA LET K 

=K-1 

45 

IF IAKEYï“"i 

8" THEA LET K 

pK+1 

46 

IF K=A OR K 

=8 THEA GOTO 

50 

47 

GOTO 20 



58 

PRIAT AT 20 

, K.: " «* ■" 


51 

PRIAT AT 21 

,K;"BOUM" 


52 

PAUSE 100 



53 

GOTO 20 
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1 REM LO MAISON DU SAVANT FOU 
10 GLS 

20 DIM B$''13,12> 

25 LET B$< 2 >-"001E03N073R" 

30 LET B$(4>="003E05H08SR" 

35 LET 5 >-"Û04E05N09SR " 

40 LET B$'-. 7 " O06E0SN10S02 " 

45 LET B*<8 Q87E09N11804" 

50 LET 19>="O06E12HRS07" 

55 LET B*C1£ "010E13NRS11" 

00 LET B*< 1.3>="Ü12EKS03HR" 

65 LET BOUCLE«9580 
102 CLS 

195 PRINT "VOUS ETES DEVANT UNE MAISON 
110 INPUT 

120 IF Z*< 1 >="E" THEN GOTO 190 
130 IF Z*<n*"R" THEN PR INT "ALLONS 
140 GOTO 110 

190 CLS 

191 PAINT "LA PORTE VIENT DE SE REFERMER 
195 GOSUB BOUCLE 

199 FOR U-5 TO 1 STEP -1 

200 CLS 

201 PR I HT ,, " VOUS AVEZ " ; U ; " VI E f . S > J ' 

202 FOR F-l TO 50 

203 NEXT P 
£04 CLS 
205 LET A=4 

210 GOSUB 6998+10TA 
215 PEINT 

220 PRINT "QUE FAITES-VOUS ?" 

230 INPUT H$ 

235 IF RM"" THEN GOTO 230 
240 FOR N-l TO 12 

£50 IF A,N>=A$<1> THEN GOTO 300 

255 NEXT N 
268 CLS 

265 PEINT "ERREUR" 

266 FOR G=1 TO 50 
270 NEXT G 


FAITES VOUS 


!JN PEU DE. COURAGE 


DERRIERE VOU: 


% LA MAISON DU SAVANT FOU 

Avant de décider de pénétrer 

dans la maison du savant fou, n'omettez pas de rédiger votre testament 

car rien ne vous sera épargné. 

Tentez d'en ressortir vite (et vivant) car vous êtes d'ores et déjà 
convié à visiter la résidence secondaire 
du savant en question. 


danger. Si vous réussissez cette épreuve, 
ce qui est réellement un exploit, vous 
aurez droit de visiter la résidence secon¬ 
de du savant fou. 


- Donnez libre cours à votre imagination. 


BUT DU JEU 


Évoluez le plus longtemps possible dans 
une maison où toute action constitue un - 
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AU CLAVIER 




















280 GOTO 210 
308 GUS 

312 II- B$< R. N+l >="R" THEN GOTO 260 

314 IF B$<FUN+1>*"K" THEN GOTO 9000 

315 PRINT "Ü.K. " 

320 LET Fl-VflL <B$<fl,N+l TO M+2 ? > 

325 FOR G==l TO 40 
330 NEXT G 
. 335 CLS 
34i3 GOTO 210 

ÆM^PRINT "UN PIEU, LANCE OU MUR, VOUS TRANS-PERCE L" "ESTOMAC ET VOUS PLANTE SUR 

' 083 GOSUB BOUCLE 
r'005 NEXT U 
7006 GOTO 9908 

7 Ü 0 uïrr H I " V0US ETES "DANS LA CUISINE. IL Y A UNE PORTE A L" "OUEST, A L""EST ET 
HU NORD* 

7015 RETURN 

JS® J p l I . N î u "ÇpÇJKr LR P0RTE SE tr ouvait UNE USINE DE CORNEED-BEEF.VQUS RESS 
UK I ti EN CH HIR APHTE..,, 

'025 GOTO 7093 

OS0 PRINT "VOUS ETES DANS L""ENTREE DE LA MAISON.IL Y A UNE PORtr û i ""EST -fl 

.OUEST ET AU NORD." 

7035 RETURN 

7040 PRINT "VOUS ETES DANS LA PENDERIE.IL Y A UNE TRAPPE AU NORD ET UNE PORT 
b H L OUEST.CH SENT LE GHZ." 

7045 RETURN 

'f 0 RRINT " LR p| 0RTE DONNAIT SUR LE VIDE. VOUS VOUS ECRASEZ LRMËNTABLENENTEN B 
7Ô55"GOTO 7003 

0HflM " ERE DE COSINUS - ON SENT DU **• IL v 

7065 RETURN 

CTION P " IWT " V0US ETES RIJ SRL0N - CR SENT LE GAZ. IL Y A UNE PORTE POUR. CHAQUEDIRE 
7075 RETURN 

£?S0 P RI . RT ^"ï'r IIJ S ETES AXPHIXIE DANS LA CHAM-BRE A GAZ ET VOUS ETES MORT." 

7085 COTO 7003 

?®.|0 PRI.NT "VOUS VOUS TROUVEZ AU FUMOIR. IL VA UNE PORTE A L""EST,AU SUD ET A L"" 

UUfc.G' I a 

7 095 RETURN 

7100 P^INT "UNE BETE EXTRAVAGANTE VOUS DE- CHIQUETTE LE CORPS." 


7105 GOTO 7003 


P R1N ] "VOUS AVEZ ACCEDE A LA PIECE SE- CRETE.CA SENT LE SANG. IL Y A HHEPOPT 
E HU SUD,A L""OUEST ET UNE TRAPPE A L""EST." “ 

7115 RETURN 

7120 PRINT "BRAVO,VOUS ETES AU LABO MAIS HT-TENTION,CA SENT LA POUDRE. IL Y 

H UNE: PORTE AU SUD, A L""EST ET A L" "OUEST." 

7125 RETURN 

9000 BRI NT ''VOUS ETES PRESQUE AU BOUT DE VOSPEINES. .. UNE BOMBE A ETE PLACEE ET P 
DUR LA DESAMORCER, " 

9005 PRINT "VOUS OOM--POSEREZ UN CODE DE 1 fi 50.MAIS VOUS N""AVEZ QUE 5 CHANCES. 
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9010 

9620 

9030 

9035 

9040 

9045 

9050 

9055 

9060 

9065 
PRES 

9066 
9070 
9088 

9100 

9110 


LET X=IHT <RND*50>+1 
FOR F=1 TO 5 
INPUT fi 
PR INT 

THEN GOTO 9100 
THEN PRINT "LE 


CODE 

CODE 


EST 

EST 


PLUS 

PLUS 


PETIT." 
GRAND." 


■LFI MAISON fi VOLE EN ECLAT. 


VOUS ETES MORT, C""EST DOMMAGE, SI 


IF A=X 
IF fl>X 

IF FKX THEN PRINT "LE 
NEXT F 
CLS 

PRINT 1 
DU BUT... " 

GÜSUB BOUCLE 
NEXT U 
GOTO 9900* 

CLS 

PRINT "BRAVO, VOUS ETES SORTI DE CETTE MAISON INFERNALE.UNE SURPRISE VOUS 
ATTEND..." 

9115 GOSUB BOUCLE 
CLS 

PRINT "DEMARREZ -LE 
IF INKEY*=CHR* 11S 
GOTO 9125 
LOAD "C0SIHUS2" 

REM L9C0SINUS2 
STOP 

FOR Y=1 TO 150 
NEXT Y 
RETURN 


9116 
9120 
9125 
9130 
9140 
9150 
9160 
9500 
9510 
9528 

9600 

9601 
9605 
9610 
9620 


MAGNETO ET APPUYEZ 
THEN GOTO 9140 


SUR newline" 


SAVE "COSINUSà," 
REM S61COSINUS1 
CLEAR 


MAISON DE CE FOU DE 


"VOUS ALLEZ 

II 


" <AVEC 5 VIES)" 

"TENTEZ VOUS VOTRE CHANCE ?" 


CLS 

PRINT " LP 
SAVANT COSINUS" 

9625 PRINT 

9626 PRINT 
VER LA SORTIE 
9630 PRINT ,, 

9635 PRINT " 

9636 PRINT 
9640 PRINT 

9645 PRINT 

9646 FOR T-l TO 5 
9650 INPUT 1$ 

9660 IF I*="OUI" THEN 
9670 IF I$="NOH" THEN 
9680 NEXT T 

9683 CLS 

9685 PRINT "ON N""ECHAPPE PAS AU 

9687 FOR Ul-1 TO 50 

9688 NEXT U 
9690 RUN 
9900 CLS 

9910 PRINT "DESOLE 
9920 GÜSUB BOUCLE 
9930 GOTO 9605 


ETRE ENFERME DANS UNEMAISON DIABOLIQUE EN ESSAYANT DETROU 


RUN 

PRINT 


"ALLONS,UN PEU DE COURAGE. 


MAIS VOUS N""AVEZ PLUS 


SAVANT COSINUS. 


DE VIE. 














p LA RESIDENCE SECONDAIRE DU SAVANT FOU 

La visite du domicile du savant fou 
n'est pas une sinécure. 

Vous replongez dans cet univers hostile construit entièrement 
sur les délires et les fantasmes démoniaques 
de cet esprit du mal. 



BUT DU JEU 


veau être confronté'à un grand nombre de 

situations dangereuses. De plus, vous de- 

A I instar de la première excursion, (voir la vrez faire-preuve d'un grand sens logique 
maison du savant fou), vous allez de nou- et d'un courage certain. 


AU CLAVIER 


- Prenez vos responsabilités. 


□ 


10 CLS 

2© DIM B$<17,1£> 

£5 LET B*<2>="001E03N058R" 
30 LET B$<3 >="O02E04H06SR" 
35 LET B$<4 >="O03ERH09SR" 

40 LET B*C5 >="ORE07N10S0£" 
45 LET B$(7>="O05E08N14S@6" 
50 LET B*<9>="O0SEEN11S04" 
55 LET B$<13>="012E14NRS10" 
60 LET B$<14 >="013E15N16SÔÎ 


THEN PR INT ''ALLONS, UN PEU DE COURAGE. 


61 LET 6*<15 >="014ERS11N17" 

62 LET 6*(17 >="OKE15S16N18" 

65 LET BOUCLE-9500 

102 CLS 

103 PRINT "VOUS ETES DEVANT LA RESIDENCE 
FAITE-VOUS ?" 

105 FOR R=l to 5 
110 INF'IJT Z$ 

120 IF Z*<l)s"E" THEN GOTO 190 
130 IF Z $(1 }="R" 

140 NEXT R 
190 CLS 

.1.91 PR INT "LA PORTE VIENT DE SE REFERMER 
IER. ... HE, HE, HE 

192 GOSUB BOUCLE 

193 CLS 

199 FOR U-S TO 1 STEP -1 
£00 CLS 

201 LET As® 3 

202 PR INT ,, "< VOUS AVEZ ".NJ;" VIE? S > V 
283 FOR R=1 TO 48 

204 NEXT R 
285 CLS 

210 GOSUB 6990+10$A 
215 PR INT 

220 PRINT "QUE FAITES-VOUS ?" 

230 INPUT H$ 

235 IF A$="" THEN GOTO 230 
240 FOR H=1 TO 12 

250 IF B$( A, N >=R$< 1 THEN GOTO 300 
255 NEXT N 
260 CLS 


SECONDAIRE DE COSINUS. 


QUE 


DERRIERE VOUS.VOUS ETES MON PRI-SONN 


193 




































1 


0""ACIDE.VOUS ETES RONGE JUSQU"" RU 


265 PRINT "ERREUR" 

266 FOR G=1 TO 50 
270 NEXT G 
275 CLS 
280 GOTO 210 
300 CLS 

212 IF B$< fl, N+l )= "R" THEN GOTO 2&8 

314 IF B*: fl, N+l >="K" .THEN GOTO 9000 

315 PRINT "O.K." 

320 LET R=VRL <B*<fl.-N+l TO H+2)> 

325 FOR G=1 TO 40 
330 NEXT G 
335 CLS 
340 GOTO 2.10 

7000 PRINT "VOUS ETES TOMBE DANS UN BflL 
X 03... " 

7003 GOSUB BOUCLE 
7005 NEXT U 

70Ï0 PRINt""VOIIS ETES DANS LR CUISINE.UNE Ü-DEUR VOUS PIQUE LE NEZ.IL ï R UNE 
PORTE R L""OUEST,fl L""EST ET AU NORD." 

7020 PRINT U "VOUS ETES DANS L""ENTREE DE Lfl MAISON.IL Y A UNE PORTE R L""EST,fl 
L""OUEST ET AU NORD." 

7020 PRINT N "VOUS ETES DANS LA PENDERIE.IL Y A UNE TRAPPE AU NORD ET UNE PORT 
E A L""OUEST." 

7040 PRINT^ "VOUS VOUS TROUVEZ DANS LA CHAM- BRE DE COSINUS.IL Y A UNE PORTE A L' 
"EST,AU SUD ET AU NORD." 

7050 PRINT H "VOUS VOUS ETES FAIT EMBROCHER PAR DES PICS,VOUS ETES MORT." 

7060 PRINT^"VOUS ETES AU SALON.IL Y A DE L""ELECTRICITE DANS L""flIR... 

Y"fl UNE PORTE POUR CHAQUE DIRECTION." 

•yçkftz ppTl |pKJ 

7070 RRINT "UN LASER,PLACE SOURNOISEMENT SURLE MUR, VOUS DESINTEGRE..." 

7080 PAINT "VOUS VOUS TROUVEZ DANS LA SALLE DE BAIN.CA SENT LE GAZ.IL Y A 
PORTE AU NORD,AU SUD ET A J_""OUEST." 

70§0 PRIÂT "LA PORTE DONNAIT SUR UN PRECIPI-CE.VOUS VOUS ECRASEZ EN BAS... 

7100 PRINT'"VOUS ETES AXPHIXIE DANS LA CHflM-BRE A GAZ ET VOUS ETES MORT." 

711* PRINT'"UN MANIAQUE CACHE DERRIERE LA PORTE VOUS PULVERISE LA TETE A COUP 
DE MASSE..." 

7120 PRINT 7 "V0IJS VOUS TROUVEZ AU FUMOIR. IL YA UNE PORTE A L""EST, AU SUD ET A L"" 
OUEST.ATTENTION, ON ENTEND UNERESPIRATION." 

7130 PRINT^"VOUS ETES DANS LA CHAPELLE.IL Y A UNE PORTE DANS CHAQUE DIREC- TIUH 


IL 


UNE 


7140 PRINT f "VOUS AVEZ ACCEDE A LA PIECE SE- CRETE.CA SENT LE GAZ.IL v A UNE PORT 
E AU SUD,A L""OUEST ET UNE TRAPPE AU NORD." 


7 145 PET'JRH 


ET VOUS ETES MORT." 


7150 PRINT "VOUS ETES BROYE DANS UN ETAU. 

716^ PRINt'"BRAVO,PAR LE BIAIS DU SOUS-TER- RAïN,VOUS ETES AU LABO.MAI b AT- TEN1 
ION,CA SENT LA DYNAMITE.IL Y A UNE PORTE DANS CHAQUE DIREC-TIüN. 

?Î?B PRIHt'-EH OUVRANT Lfl PORTE, VOUS RVEZ RENVERSE DES TUEES fl ESSAIS CON-TENfl 
HT DE LA NITROGLYCERINE QUI A EXPLOSE NATURELLEMENT ET vUUo H,E_-. 

Q000 PPTNt' "PCR',.'T 331 MO, VOUS ETES DOUE D""UH SENS DU HASARD INCROYABLE. MAIS MAL 
œUREMSEMENT ? Lfl PORTE EST” VERROUILLEE PAR UN CADENAS ELEC-TRONIQUE. INSERREZ-Y 
VOTRE CARTE EN APPUYANT SUR ■'"I""." 


194 



















9005 IMPIJT 1$ 

9010 CLS 

9020 PRINT "VOUS N""AVE 
LISE fl UN CODE QUI H""EST 
9030 PRINT "POUR CORRIGER 


VRAIMENT PAS 
PAS BON." 

CE CODE, VOUS 


DE 


CHANCE ^ LA CARTE QUE VOUS AVEZ UTI 


UTI-U SEREZ UN STYLO 


ODE DE 1 A 99. L""ORDINATEUR DE CONTROLE VOUS DIRA SI VOUS 
9035 PRINT 

PRINT "VOUS AVEZ 6 CHANCES.",,, 

L.ET :;=INT <RND*99>+1 
FOR H=1 TO 6 
IHAUT D 

IF DOS THEN PRINT "LE CODE EST PLUS 
THEN PRINT "LE CODE EST PLUS 
THEN GOTO 9100 


MAGNETIQUE AVECUN C 
APPROCHEZ DU CODE." 


9036 

9040 

9043 

9045 

9050 

9055 

9060 

9061 

9062 
i 9065 

UNE 
19066 
9070 
9075 
19080 
1 9090 
9100 
9110 


GRAND. 

PETIT. 


IF D>X 
IF D«X 
N EX T H 
CLS 

PRINT "DESOLE, LA CARTE MAGNETIQUE EST FOUTUE.VOUS ALLEZ VOUS TROUVER DANS 
PIECE AU HAZARD..." 

GOSIJB BOUCLE 

LET Z*INT <RND*14)+1 

IF 2*3 OR 2=1 OR 2=6 OR 2=8 OR 2=1O OR 2=11 OR 2=12 THEN GOTO 9070 
LET A=2 
GOTO 205 


L- 

PRINT 


"BRAVO, FELICITATION.VOUS AVEZ REIJSI A SORTIR DE CES LABYRIN- THES 


,C""EST DU JAMA 
(9112 GOSUB BOUCLE 
[9115 GOTO 9115 
STOP 

FOR Y=1 TO 150 
N EXT Y 
RETURN 

SAVE "COSINUSâ" 
REM S61C0SI.NUS2 
CLEAR 
CLS 

PRINT "LA MAISON 
PRINT "APRES LES 


VU DANS 


L""HISTOIRE DU JEU D""AVENTURE. 


DE COSINUS DEUXIEME PARTIE." 

PERIREGIES DE LA PRE- MIERE MAISON, VOUS VOUS TROUVEZ DEVA 
DE COS INUSc: ENCORE PLUS AFFREUX)." 


9170 
9500 
9510 
9520 
9608 
9601 
9605 
9610 
9620 
9625 

NT LA RESIDENCE SECONDAIRE 
9630 PRINT ,, , ,, , 

PRINT " < AVEC 6 VIES)" 

PRINT 

PRINT "TENTEZ-VOUS VOTRE CHANCE ?" 

PRINT 

FOR R=1 TO 5 
INPUT I* 

IF I$="OUI" THEN RUN 

IF I$="NON" THEN PRINT "ALLONS,UN PEU DE COURAGE 
NEXT R . 

CLS 

PRINT "ON NE PEUT PAS ECHAPPER AU 
FOR R=1 TO 50 
NEXT R 
RUN 


9635 

9636 
9640 
9645 
9647 
9650 
9660 
9670 
9680 
9690 
9700 
9710 
9720 
9730 
9900 
9910 

9929 

9930 
9940 
9950 


SAVANT COSINUS. 


CLS 

PRINT 

GOSUB 

PRINT 

PRINT 

PRINT 


"DESOLE MAIS VOUS N""AVEZ PLUS DE VIE. 
BOUCLE 

"AU REVOIR..." 

"J""AI BIEN RIGOLE." 

, , , , " INSCRIRE RUN POUR RECOMMENCER.. " 
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SUCCÈS 

OBLIGE fy 

Le deuxième d’une 

lonsue série de guide X 11 

des logiciels. \ |^' 

Plus d’un tiers de nou- \ 
veautés. \ 

AU SOMMAIRE : \ : #00 

— Une sélection de 416 ^pj 
programmes en Anglais \ 
ou en Français pour : V ÿ 

APPLE - ATARI - COMMODORE V 
V20 et C64 - EPSON HX 20 - \ 
ORIC 1 et ORIC ATMOS - IBM PC \ 

— SINCLAIR ZX81 et SPECTRUM \ 

TRS 80 - THOMSON TO 7 - V' 
HECTOR. y 

— Les fiches techniques de \ 
chaque programme compre-’ 
nant : 

La description précise du pro¬ 
gramme. 

Son prix moyen constaté. 

Sa compatibilité avec tel ou tel 
micro. 

— En plus vous trouverez : 

Des conseils pour choisir et acheter 
le programme que vous cherchez. 
Des index pour trouver facilement 
ce que vous cherchez. 


LISTE 

DES POINTS 
DE VENTE 


06000 - MADS - NICE - (93) 88.04.79 

06210 • Evolution sooo ■ mande lieu - (93) 49.81.61 

08600 - MICRO-BOUTIQUE JCR - GIVE7 - (24) 55.01.23 

10000 - MTCROPOUS - TROYES ■ (25) 72.03.79 

11000 -1 tLEC VIDEO CLUB - CARCASSONNE • (68) 47.08.94 

11000 - R 2 I INFORMATIQUE - NARBONNE • (68) 65.15.83 

12000 - RASE 2 SOCODETI - RODEZ -165) 42.50.05 

13004 - ALLIANCE - MARSEILLE - (91) 86.35.99 

13005 - EEP INFO ■ MARSEILLE - (91) 94.91.13 

13006 • MD SYSTÈME • JCR BOUTIQUE - MARSEILLE -(91) 37.62.33 
13200 - LUDO - ARLES - (90) 96.79.03 

14000 ■ OMB-VASSARD TILUETTE - CAEN - <31 ) 93.48.09 
16000 - SA. LHOMME - ANGOULÊME • (45) 92.27.37 
18000 - AVENIR INFORMATIQUE ■ BOURGES (48) 65.16.57 
19100 - MICROMATIC - BRIVE - (55) 87.15.17 
19100 • INFORMATTC 19 BRIVE - (55) 87(77.08 
21000 - OM.G. MICRO LEADER - DIJON • (80) 30.12,70 + 

24100 • MICRO CYRANO INFORMATIQUE BERGERAC 
(16) 56.06 06 12 + 

25206 • ITA MONTBELIARD ■ MONTBERIARD CEDEX - (81) 94.50.65 

26000 - DOMICA - VALENCE - (75) 41.14,75 

26500 ■ eca Electronique - bourg-les-valence - (75) 42.68.88 

29000 L'ORDINATEUR 29 - QUIMPER - (98) 95.92.70 
30000 ■ DISCOUNT INFORM. SERVICE • NIMES - (66) 23.74.21 
31000 . MICRO DIFFUSION ■ TOULOUSE - (61) 22.81.17 
33000 - MICRO DIFFUSION - BORDEAUX • (56) 81.11.99 
33800 - ETS COCA - BORDEAUX • (61 ) 92.91.78 
34006 PIB - JCR BOUTIQUE - MONTPELLIER ■ (67) 58.84.37 
34200 ■ BUREAU ORGANISATION • SÉTU - (67) 74,34.10 
34500 - MARCELLEC - BEZIERS - (67) 31.37.65 
37170 - LIM ■ CI1AM8RAVCES-TOUR5 • (47) 27.29.00 
38500 - MICRO AVENIR • VCHRON - (76) 65.72.55 
39000 • MICRO 39 JEAN PIFRRF-ANDRC - LONS-LE-SAUNIER 
(84) 24 45 39 

41500 • T LM. ■ MER ■ (54) 81.62.47 

42000 ■ DÉTROIT INFORMA1IQUE - SAINT-ÉTIENNE • (77) 33 56.59 
42100 • SAINT-ÉTIENNE COMPOSANTS - SAINT-ÉTIENNE 
(77) 33.50.14 

42300 • MICRO SYSTÈME RHONE-ALPES - ROANNE - (77) 68.67.99 + 

44100 SILICONE VALLÉE • NANTES ■ (40) 73.21.67 

45000 • TÉLÉPHONIE BIS - ORLÉANS - (38) 54.34.34 

47000 • JULIEN ÉLECTRONIQUE - AGEN - (58) 66.55.64 

49000 ■ TEMPS X ANGERS - (41) 88.9507 

49300 ■ CHOIE! INFORMATIQUE - CHOLET (41) 46.02.40 

54000 - SfREC • NANCY (B) 332.12.60 

56000 - L'ORDINATEUR 56 • VANNES ■ (97) 42,52.20 

56100 - L'ORDMATEUR 56 LORIENT • (97) 64.52.54 

57504 ,ARGO INFORMATIQUE - SAINT-AVOLO (87)92.54.84 + 

57800 - CMI FREYMING MERLEBACH ■ (87) 81.14.89 

59000 - ETS BOULANGER LILLE ■ (20) 54.98.75 

59000 - BÉCY INFORMATIQUE • LILLE - (20) 92.33.06 

59400 - MICROSHOP - CAMBRAI • (27) 81.98.09 H- 

59500 - CID ■ DOUAI - (27) 88.47.20 

59800 M.B.D.C. ■ LILLE ■ (20) 57.91.87 

60108 - QUENEUTTE - CREIL - (4) 425.04.26 

60200 - LARDET SA - COMPÏÈGNE - (4) 423.07 86 

63000 - IMPACT CLERMONT-FERRAND - (73) 92.17.55 

64110 - ESPACE MICRO 64 - BAYONNE • (59) 59.41,55 

64600 - INFORMATIQUE BASCO LANDAISE - ANGLET - (59) 31.96.05 

66000 - SÉRIE INFORMATIQUE PERPIGNAN • (68) 34.00.11 

67150 • ETS A FRITSCH - ERSTEIN - (88) 98.03.51 

68000 - E.I.B, - COLMAR (89) 23.68.35 

69003 - B.I.MP. • LYON (7) 860.84.27 

69400 ■ MICRO INFORM.BEAUJOLAISE ■ VRiFFRANCHE-S/SAONE - 
(74) 68.44.92 

70000 - ÉLECTRO BOUTIQUE - VESOUL - (84) 76.49.52 + 

71100 - AVENIR ÉLECTRONIQUE - CHALON/SAONE ■ (85) 48.73.35 
71400 - CH,B. ÉLECTRONIQUE - AUTUN - (85) 52.70.26 
72000 - MICROTIQUE AESCULAPPLE ■ LE MANS • (43) 24.97,80 
73100 • L'ORDINATEUR • AIX-LES-BAINS ■ (79) 88 19.07 
74102 - D.SA, MICRO • ANNEMASSE - (50) 38.31.40 
75001 • VIDEO SHOP - PARIS - (1 ) 296.93.95 

75005 - HACHETTE - PARIS • 633.84.68 

75006 • DURIEZ S A - PARIS - 329.05.60 

75008 • ÉNERGY 8 - PARIS - 293.41.33 

75009 - LE JEU ÉLECTRONIQUE - PARIS - 526.62.93/874.43.90 
75009 - LPS BUREAU - PARIS - 878.26.46 

75009 - J.Ç.R. ÉLECTRONIQUE - PARIS - 282.19.80 

75010 - GÉNÉRAL VIDEO - PARIS - 206.50.50 

75010 - LOGIC STORE - PARIS - 206,72.28 

75011 - COCONUT INFORMATIQUE - PARIS - 355.63.00 

75011 ■ P.I.TJ. - PARIS • 254.38.01 

75012 - ELLIX- PARIS - 307.65.58 

75014 - MIDEF - PARIS - 539.98.68 

75015 - J,CS. COMPOSANTS • PARIS- 355.96,22 

75015 - ILLEL CENTRE - PARIS - 554.97.48 

75016 • PENTASONIC - PARIS • 524.23.16 

75016 ■ ANTIGONE • PARIS - 743.13.41 
76600 - MICRO MAX • LE HAVRE - (35) 41.77.47 
76600 - V.P.C. BUREAU - LE HAVRE • (35) 42.49.21 
76600 - L'ORDINATEUR - LE HAVRE - (35) 21.54.55 
77000 - EPSILON ■ MELUN • 437.51.95 
80000 • LOGIC - AMIENS - (22) 95.54.84 
83000 - P.S.I, ÉLECTRONIQUE - TOULON - (94) 93.11.20 
86011 - LISTE INFORMATIQUE - POITIERS CEDEX - (49) 41.43.86 . 
87000 - MKROLIM - LIMOGES - (55) 34.10.12 + I 

89100 ■ MINI LOISIRS - SENS ■ (86) 64.41.91 ( 

89100 - LASOBIKOR YONNE - SENS (86) 64.51.26 + 

91210 • VIOEOTRONIC - DRAVEIL - 940.28.30 
92100 - AXIOME - BOULOGNE • 604.02.21 
92100 - OLIG - BOULOGF* BILL. - ( I ) 605.05.59 
94100 - DIXMA - SAINT-MAUR ■ 885.98.22 
98000 - MICROTEK 2 - MONACO - (93) 30.67.67 + 

88002 - A.V.M - ÉPINAL (29) 82.14.97 


Adresse 
Code et ville 


BON DE COMMANDE A RENVOYER A SPID - 39, RUE V.-MASSÉ - 75009 PARIS 
Je désire recevoir le "GUIDE DES LOGICIELS" Printemps 1984 
Je joins 20 F en chèque (15 F+ 5 F de port) en rèslement. 

Nom . 


EN VENTE 15 F CHEZ VOTRE 
DISTRIBUTEUR OU 15 F + 5 F 
DE PORT EN RENVOYANT LE 
COUPON CI-DESSOUS. 


JPiD 


LA HAUTE FIABILITE 


I 












IQfllUtAJAPI VKXO c« 


SVSItM 


K* iw AJAHi vrao cofvwiœ System 


COMN/IER SYSTEM 


hOU lHf- 





SUPER COBRA™ 

Votre mission : “Anéantir 
l’ennemi”. Qui est-t-il? Où se 
trouve-t-il ? Personne ne le sait. 

Le seul moyen de l’atteindre : 
l’hélicoptère.Mais il fait nuit.Vous 
devez traverser des villes et des 
tunnels. Et si vous ne vous écrasez pas, vous risquez d’être 
abattu par l’armée ennemie. Alors ayez l’œil! 


Compatible avec les systèmes : Atari™ VCS™, Intellivision 1 ", Vidéopac™, C.BS/Coleco™, 
Atari 111 Ordinateur familial, Jopac™, Brandi™. 


Q. BERT ® 

Votre nouveau nom, Q. BERT. 
Vous sautez joyeusement sur les 
blocs d’une pyramide jusqu'à ce 
qu’ils aient tous la même couleur. 
Mais attention, dangers! Hargne 
de vos ennemis, Slick, Sam et 
Coilly le serpent. En cas de panique, échappez-vous en sou¬ 
coupe. Restez calme! 



Compatible avec les systèmes : Atari™ VCS 151 , intellivision 1 ' 1 , Vidcopac™, CBS/Coleco™, 
Atari™ Ordinateur familial, Jopac" 1 , Brandf™, 


TUTANKH AM ™ 

Découvrez le trésor millénaire 
des pharaons. Pas si simple! 
Serpents venimeux,chauves-souris, 
esprits, tous sont unis pour vous 
empêcher d’y parvenir. Pour les 
vaincre, vous n'avez que votre 

Compatible avec les systèmes : Atari"' VCS" 1 , Intellivision™, Vidcopac™, CBS/Coleco™, 
Atari™ Ordinateur familial, Jopac"', Brandi™. 

POPEYE® 

Vous êtes Popeye et vous aimez 
Olive. Votre seul désir, attraper 
tous les cœurs et les mots d’amour 
qu’elle lance, et la rejoindre. Mais 
tout vous en empêche. Des trappes, 
des échelles et l’éternel Brutus! 

La seule solution : avalez une boîte d’épinards. Attention à 
Brutus! Battez-vous! 

Compatible avec les systèmes : Atari™ VCS"', Intellivision™, Vidéopac"', CBS/Colcco™, 
Atari"' Ordinateur familial,Jopac™, Brandf™. 




pistolet laser. Courage ! 


FROGGER™ 

Vous êtes responsable de la vie de 
Frogger lagrenouille. Non seule¬ 
ment elle doit traverser une auto¬ 
route à 5 voies mais encore une 
rivière grouillante de crocodiles, de 
tortues ou de serpents, tous gros 
mangeurs de grenouilles. Aidez-la! 

Compatible avec les systèmes : Atari"' VCS"', Intellivision 1 ' 1 , Vidéopac'*', CBS/Colcco"', 
Atari ' *' Ordinateur familial, Jopac™, Brandf™. 

PARKER 


JEUX VIDEO 

Ils détestent vous laisser gagner. 



COMPATIBLES 
AVEC LES PRINCIPAUX 
SYSTÈMES 



BA/.AINfc/DFS 





















